Dim db as Database

Dim td as TableDef

Set db = CurrentDb()

For Each td In db.TableDefs

  MsgBox td.Name

Next td