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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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