Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Inserts the sheet names into the SheetNames array

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