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