Sort Sheets in ascending order

[georgiboy]

Try this...

Sub SortWorksheets()
Dim sCount As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount - 1
    For j = i + 1 To sCount
        If Int(Worksheets(j).Name) < Int(Worksheets(i).Name) Then
            Worksheets(j).Move Before:=Worksheets(i)
        End If
   Next j
Next i
Application.ScreenUpdating = True
End Sub

Hope this helps