Sub IterateAllTables() Dim vnt As Variant With CurrentData For Each vnt In .AllTables 'Print the name of the table Debug.Print vnt.Name Next vnt End With End Sub