IsAppOpen

From scripting
Jump to: navigation, search
Function IsAppOpen(AppName As String) As Boolean
On Error GoTo Blast
Set MyApp = GetObject(, AppName & ".Application")
IsAppOpen = True
Exit Function
Blast:
IsAppOpen = False
End Function