Sub Sort_Worksheets()
Dim i As Integer, j As Integer
For i = 1 To Worksheets.Count
For j = i + 1 To Worksheets.Count
If StrComp(Worksheets(j).Name, Worksheets(i).Name, vbTextCompare) = -1 Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub