A starting point (VBA code):
For Each tdf In CurrentDb.TableDefs
Debug.Print tdf.Name
Next
(SQL code)
SELECT Name
FROM MsysObjects
WHERE Type In (1, 4, 6)
Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886