Sub IterateAllForms() Dim vnt As Variant With CurrentProject For Each vnt In .AllForms Debug.Print vnt.Name Next vnt End With End Sub