Coртировка листов в Экселе через макрос

[RAN.]

Если имена листов 1, 2 ,3 ... то так пошустрее будет, и все по порядку.

Sub SortSheetsR()
    Dim i&
    For i = Sheets.Count - 1 To 1 Step -1
        Sheets(CStr(i)).Move Before:=Sheets(CStr(i + 1))
    Next
End Sub