Sub SortSheets()
Dim SheetNames()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
For I = 1 To SheetCount
SheetNames(I) = ActiveWorkbook.Sheets(I).name
Debug.Print SheetNames(I)
Next I
End Sub