Сортировка ярлыков листов

[perven1]

Доброе утро, уважаемые программисты.
Помогите доработать макрос.

Есть несколько листов. В ячейку C2 каждого листа вставлена цифра.
Как отсортировать листы - по значениям в этих ячейках?
Сперва идут ярлычки листов со значениями в ячейках C2 - равными "1".
За ними идут ярлычки листов со значениями в ячейках C2 - равными "2" и т.д.

Сейчас я добавил рекодером команду типа
"Sheets("Лист7").Move Before:=Sheets(6)" , которая позволяет двигать ярлыки отдельных листов. Но вот как сортировать эти листы по значению в ячейках - не могу понять.

[AlexM12]

Так надо?

Sub Macros()
Dim i As Long, j As Long
Application.ScreenUpdating = False
WS_count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_count - 1
    For j = 1 + i To WS_count - 1
        If Worksheets(i).Range("C2") > Worksheets(j).Range("C2") Then
            Worksheets(j).Move Before:=Worksheets(i)
        End If
    Next j
Next i
Worksheets(WS_count).Activate
Application.ScreenUpdating = True
End Sub

[perven1]

AlexM12, судя по всему - подходит.
Да, все так как нужно.
Большое спасибо вам за помощь.