The IsLoaded function tests to determine if any instances of a form are already loaded or exist in memory:
If IsLoaded("frmMyForm") Then Debug.Print "frmMyForm is loaded"End IfPublic Function IsLoaded(sForm As String) Dim Frm As Form For Each Frm In Forms If Frm.Name = sForm Then IsLoaded = True Exit For End If NextEnd Function