sample/sheet-3 - konkensyu @ ウィキ

Sub ★シート並べ替え()

Dim i As Integer, sRange As Range, sName As String

Worksheets.Add(Before:=Worksheets(1)).Name = "temp"
For i = 4 To Worksheets.Count - 1

   Cells(i, 1) = Worksheets(i).Name

Next

Set sRange = Cells(4, 1).CurrentRegion
With ActiveSheet.Sort

   .SortFields.Clear
   .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending
   .SetRange sRange
   .Apply

End With

For i = 1 To sRange.Row.Count

   sName = Worksheets("temp").Cells(i + 3, 1)
   Worksheets(sName).Move after:=ActiveSheet

Next

Application.DisplayAlerts = False
Worksheets("temp").DELETE
Application.DisplayAlerts = True

End Sub