Sub Sorting_Sheets_Ascending()      'Сортировка листов по возрастанию
    Dim i As Integer, j As Integer      'Создание 2 целых переменных i, j
    Dim ls1, ls2, s As String
    For i = 1 To Sheets.Count      'Цикл по листу i (от 1-го до последнего листа)
        For j = i + 1 To Sheets.Count    'Цикл по листу j (от i+1-го листа до последнего листа)
            s = Sheets(i).Name
            If IsNumeric(s) Then
                ls1 = CDbl(s)
            Else
                ls1 = UCase(s)
            End If
            s = Sheets(j).Name
            If IsNumeric(s) Then
                ls2 = CDbl(s)
            Else
                ls2 = UCase(s)
            End If
            If ls1 > ls2 Then      'Проверка условия по имени листа
                Sheets(j).Move Before:=Sheets(i)      'В случае выполнения условия, перенос листа j перед листом i
            End If
        Next j
    Next i
End Sub