Public Sub GetDates() Dim vnt As Variant With CurrentData For Each vnt In .AllTables Debug.Print vnt.Name & ", " & vnt.DateCreated & ", " & vnt.DateModified Next vnt End With End Sub