( mrceeka | 2015. 01. 06., k – 11:43 )

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