'XLcheck.vbs
' Find an invisible instance of Excel
' from Rob Bruce
Dim objXL,objWD, strMessage
On Error Resume Next
' Try to grab a running instance of Excel:
Set objXL = GetObject(, "Excel.Application")
Set objXL = GetObject(, "Excel.Application")
'Set objWD = GetObject(, "Word.Application")
'Set objWD = GetObject(, "Word.Application")
'objWD.Visible = true
objXL.Visible = true
objXL.Visible = true
sendkeys("~")
' End of VBS code