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