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

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" wrote in message
...
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

Thanks Bob, That did it brilliantly.

Cheers - Kirk