>>109
挿入ソート的にやってみた。これはMoveメソッドと相性が良いな。
Sub Macro1()
　　For i = 2 To Sheets.Count
　　　　For j = 1 To i - 1
　　　　　　If Sheets(i).Name < Sheets(j).Name Then
　　　　　　　　Sheets(i).Move Before:=Sheets(j)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　Next
End Sub