Check If Form Open or Not

[kirkm]

I'm prety sure this is Access code

Function IsOpen(szName As String)
IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, szName) <> 0)
End Function

Anyone know the Excel equivalent?

Thanks - Kirk

 

[Bob Phillips]

Function IsLoaded(szName As String)
Dim frm As Object
For Each frm In UserForms

If frm.Name = szName Then

IsLoaded=True
Exit For
End If
Next frm
End Function

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[kirkm]

Thanks Bob, That did it brilliantly.

Cheers - Kirk