Difference between revisions of "IsAppOpen"
From scripting
(Created page with " Function IsAppOpen(AppName As String) As Boolean On Error GoTo Blast Set MyApp = GetObject(, AppName & ".Application") IsAppOpen = True Exit Function Blast: IsAppOpen =...") |
(No difference)
|
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