Here's a User Defined Function that I found somewhere, can't remember
where
Code:
--------------------
Check whether a userform is loaded
Option Explicit
Function FormIsLoaded(FormName As String) As Boolean
Dim oFrm As Object
FormIsLoaded = False
For Each oFrm In UserForms
If oFrm.Name = FormName Then FormIsLoaded = True
Next oFrm
End Function