Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Sort sheets

Sub SortSheets()     Dim SheetNames()     SheetCount = ActiveWorkbook.Sheets.Count     ReDim SheetNames(1 To SheetCount)     For i = 1 To SheetCount         SheetNames(i) = ActiveWorkbook.Sheets(i).Name     Next i     Call BubbleSort(SheetNames) End Sub