Sub TestAllForms() Dim objAccObj As AccessObject Dim objTest As Object Set objTest = Application.CurrentProject For Each objAccObj In objTest.AllForms Debug.Print objAccObj.Name Next objAccObj End Sub