Retreiving tab name

[onlines]

Basically, i want to loop through all 32 available tabs until i hit a specific tab and then work with that one.
Example. Find the tab labeled "MTD" (Month to date)

I currently have this
[VBA]
for counter = 1 to worksheetCount
WScript.Echo "Reading Data from worksheet " & counter & vbCRLF
Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(counter)
activeSheetName = objExcel.ActiveSheet.Name
if activeSheetName = "MTD" then
WScript.Echo "MTD Hit "
else
WScript.Echo "MTD Missed"
end if
set currentWorkSheet = Nothing
set activeSheetName = Nothing
next
[/VBA]
Though, everything is registering as a Hit? It should be 31 misses, and 1 hit

Any ideas?
Thank you!

[Bob Phillips]

Why loop through them, why not address the target sheet directly?

[Bob Phillips]

And in your code, shouldn't

[vba]

activeSheetName = objExcel.ActiveSheet.Name
[/vba]

be

[vba]

activeSheetName = currentWorkSheet.Name
[/vba]

[onlines]

And in your code, shouldn't

[vba]

activeSheetName = objExcel.ActiveSheet.Name
[/vba]
be

[vba]

activeSheetName = currentWorkSheet.Name
[/vba]

That did it
thank you.

[Bob Phillips]

But as I said, why not address it directly? Cut out the loop.