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