Sub Macros()
Dim i As Long, j As Long, jj As Long
WS_count = ActiveWorkbook.Worksheets.Count
jj = 0
For i = 3 To WS_count
For j = 3 + jj To WS_count
nj = CInt(Mid(Worksheets(j).Name, 6, Len(Worksheets(j).Name) - 6))
ni = CInt(Mid(Worksheets(i).Name, 6, Len(Worksheets(i).Name) - 6))
If nj < ni Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
jj = jj + 1
Next i
End Sub

Sub Macros()  
Dim i As Long, j As Long, jj As Long ' описание переменных
WS_count = ActiveWorkbook.Worksheets.Count ' определение количества листов в книге
jj = 0 ' эта строка необязательна, так как при объявлении переменной она равна нулю
For i = 3 To WS_count ' цикл по листам начиная с 3-го
For j = 3 + jj To WS_count ' цикл по листам начиная с 3-го
nj = CInt(Mid(Worksheets(j).Name, 6, Len(Worksheets(j).Name) - 6)) ' выделение номера из названия листа
ni = CInt(Mid(Worksheets(i).Name, 6, Len(Worksheets(i).Name) - 6)) ' выделение номера из названия листа
If nj < ni Then ' если условие выполняется ...
Worksheets(j).Move Before:=Worksheets(i) ' перемещаем лист с меньшим номером вперед.
End If
Next j
jj = jj + 1 ' переменная нужна для того, чтобы не обрабатывать уже перемещенные листы
Next i
End Sub

jj = 0 'убрать строку
' три строки условия
If nj < ni Then
Worksheets(j).Move Before:=Worksheets(i)  
End If
' заменить одной
If nj < ni Then Worksheets(j).Move Before:=Worksheets(i)  

WorkSheets("Исходные данные").Range("A1")

Лист100.Range("A1")

MySheet.Range("A1")

Sub СОРТИРОВАТЬ_ЛИСТЫ()   ' сортировка листов в активной книге (не сортирует скрытые листы)
      If ActiveWorkbook.ProtectStructure Then _
         MsgBox "Структура книги " & ActiveWorkbook.Name & " защищена. Сортировка листов невозможна.", vbCritical: Exit Sub
      On Error Resume Next   ' ошибка может возникнуть при наличии скрытых листов
      Dim i%, j%
      Application.ScreenUpdating = False: Application.EnableEvents = False
      With ActiveWorkbook
          For i = 1 To .Sheets.Count - 1
              For j = i + 1 To .Sheets.Count
                  If UCase(.Sheets(i).Name) > UCase(.Sheets(j).Name) Then .Sheets(j).Move Before:=.Sheets(i)
              Next j
          Next i
      End With
      Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

Sub СОРТИРОВАТЬ_ВСЕ_ЛИСТЫ()   ' сортировка листов в активной книге (сортирует даже скрытые листы)
     If ActiveWorkbook.ProtectStructure Then _
        MsgBox "Структура книги " & ActiveWorkbook.Name & " защищена. Сортировка листов невозможна.", vbCritical: Exit Sub
     Application.ScreenUpdating = False: Application.EnableEvents = False
     Dim iSht As Worksheet, oDict As Object, i%, j%
     Set oDict = CreateObject("Scripting.Dictionary")
     For Each iSht In ActiveWorkbook.Sheets   ' запомнить состояние видимости каждого из листов и сделать все видимыми
         oDict.Item(iSht.Name) = iSht.Visible: iSht.Visible = True
     Next
     With ActiveWorkbook   ' сортировка видимых листов
         For i = 1 To .Sheets.Count - 1
             For j = i + 1 To .Sheets.Count
                 If UCase(.Sheets(i).Name) > UCase(.Sheets(j).Name) Then .Sheets(j).Move Before:=.Sheets(i)
             Next j
         Next i
     End With
     For Each iSht In ActiveWorkbook.Sheets   ' восстановить исходное состояние видимости каждого из листов
         iSht.Visible = oDict.Item(iSht.Name)
     Next
     Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

    With ActiveWorkbook
           For Each sh In .Sheets
               i = i + 1
               .VBProject.VBComponents(sh.CodeName).Name = "sh" & i    '& "_" & sh.Name
           Next
       End With