Sub GetSheetNames()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
On Error Resume Next
ActiveCell.Value = wSheet.Name
ActiveCell.Offset(1, 0).Select
Next wSheet
End Sub
Ebből kibogarászhatod, hogyan veheted sorra a worksheeteket.
Read more : http://www.ehow.com/how_8503026_list-worksheets-excel-using-vba.html
Üdv,
Marci