Difference between revisions of "IsAppOpen"

Latest revision as of 06:58, 22 April 2017

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