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