Excel VBA シートを一括で並べ替え(昇順)
参考URL
https://excel-excel.com/tips/vba_27.html
シートの並べ替えの標準モジュールコード
Public Sub SheetNameSort()
Dim i As Integer
Dim j As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
For j = 1 To ActiveWorkbook.Sheets.Count – 1
If ActiveWorkbook.Sheets(j).Name > ActiveWorkbook.Sheets(j + 1).Name Then
ActiveWorkbook.Sheets(j).Move after:=ActiveWorkbook.Sheets(j + 1)
End If
Next j
Next i
On Error Resume Next
ActiveWorkbook.Sheets(1).Activate
End Sub