Mega Code Archive
Use the form object variable to point at each form in the Forms collection
Sub IterateOpenForms()
Dim frm As Form
For Each frm In Forms
'Print the name of the referenced form to the Immediate window
Debug.Print frm.Name
Next frm
End Sub