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