VBA – Check if Office App is Running

This code will check if an Office App is Running. If the App is not running then it opens the App.

Check if Microsoft Word Application is Open

Sub Check_If_App_Is_Open()

'Check if Microsoft Word is Running
wApp = "Word.Application"

If IsAppRunning(wApp) = True Then
 MsgBox "Word is Running"
Else
 MsgBox "Word is Not Running"
 'Create a new instance
 Set oApp = CreateObject(, wApp)
End If

End Sub