'/=================================================/
Sub WkshtSort_Ascending()
Dim i As Integer, x As Integer
Dim iWksheetCount As Integer
iWksheetCount = Application.ActiveWorkbook.Worksheets.Count
For i = 1 To iWksheetCount
For x = i To iWksheetCount
If UCase(Worksheets(x).Name) < _
UCase(Worksheets(i).Name) Then
Worksheets(x).Move Before:=Worksheets(i)
End If
Next x
Next i
End Sub
'/=================================================/
Sub WkshtSort_Descending()
Dim i As Integer, x As Integer
Dim iWksheetCount As Integer
iWksheetCount = Application.ActiveWorkbook.Worksheets.Count
For i = 1 To iWksheetCount
For x = i To iWksheetCount
If UCase(Worksheets(x).Name) > _
UCase(Worksheets(i).Name) Then
Worksheets(x).Move Before:=Worksheets(i)
End If
Next x
Next i
End Sub
'/=================================================/
HTH,