Birichica,
You need to use code.
From
http://www.cpearson.com/excel/sortws.htm
Sorting Worksheets In Alphabetical Order
In some applications, it may be useful to have the worksheets in
alphabetical order. For example, if you have a worksheet for each employee
on a team and each employee has their own worksheet, you may want these
sheets in alphabetical order. You could do this manually, but if you have
more than a few sheets, it would be easier to automate the task. Excel
does not have a built in tool to do this, but you can use some fairly simple
VBA code accomplish this.
The following code will sort the sheets in the workbook, in alphabetical
order.
Sub SortWorksheets()
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean
SortDescending = False
If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count
If .Item(N - 1).Index <> .Item(N).Index - 1 Then
MsgBox "You cannot sort non-adjacent sheets"
Exit Sub
End If
Next N
FirstWSToSort = .Item(1).Index
LastWSToSort = .Item(.Count).Index
End With
End If
For M = FirstWSToSort To LastWSToSort
For N = M To LastWSToSort
If SortDescending = True Then
If UCase(Worksheets(N).Name) > UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
Else
If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
End If
Next N
Next M
End Sub
HTH,
Bernie
MS Excel MVP
