Alternatively...
Code:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

If FindWindow("XLMAIN", 0) > 0 Then
    
    MsgBox "Excel is Running!"
    
End If