|
Sub SortAllSheets()
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim cSheets As Integer
Dim sSheets() As String
Dim i As Integer
Set wb = ActiveWorkbook
cSheets = wb.Sheets.Count
ReDim sSheets(1 To cSheets)
For i = 1 To cSheets
sSheets(i) = wb.Sheets(i).Name
Next
Set ws = wb.Worksheets.Add
For i = 1 To cSheets
ws.Cells(i, 1).Value = sSheets(i)
Next
ws.Columns(1).Sort Key1:=ws.Columns(1), _
Order1:=xlAscending
For i = 1 To cSheets
sSheets(i) = ws.Cells(i, 1).Value
Next
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
For i = 1 To cSheets
wb.Sheets(sSheets(i)).Move After:=wb.Sheets(cSheets)
Next
End Sub
|