Access - ****Dir sobre tablas***???

Necesito crear un modulo que recorra todas las todas las tablas y me guarde el nombre de las tabas en un Array.
Me explico, yo no se el nombre de las tablas y lo que quiero es recorrer la base completa y guardar el nombre de cada una en una variable.
gracias

te mando un codigo de ejemplo:

Public Sub Prueba()
Dim x As TableDef
Dim y As Database

Set y = CurrentDb

For Each x In y.TableDefs
Debug.Print x.Name

Next x
End Sub

cambia el Debug.Print por lo que necesites.

JLF_