Thanks for referring this site. I tried the same approach mentioned in the post, but still it is showing as Excel not opened.
I tried the below code, with SampleXL excel file opened. Can you/anyone tell where i am going wrong?
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
i = 0
For Each objTask in colTasks
strName = LCase(objTask.Name)
If Instr(strName, "SampleXL")>0 Then
i = 1
If i=1 Then
print "Excel is opened"
print "Excel not opened"