find all worksheets in a workbook?

[xq]

is there a way to write a macro which can be runed to find all the worksheets in a workbook, then i am able to run other things to do with those worksheets. thanks for any help!

 

[Adamba]

xq,

Use the following code to popup names of all sheets in the active workbook:

Sub FindSheetNames()
Dim x
For x = 1 To Sheets().Count
MsgBox Sheets(x).Name
Next x
End Sub



Adam

 

[valtersp]

All worksheets or only those who matches criteria?

If so, try this

Sub FindActualWorkSheet()
For sh = 1 To ActiveWorkbook.Sheets.Count
if sheets(sh).name=YourCriteria then
............
else
...........
end if
Next
End Sub

Hope it'll help