VBAでExcelのシートを並べ替え

VBAでExcelのシートを並べ替え

ChatGPTにて生成したものを調整、
文章だけでソートプログラムの生成を指定すると
生成されたソートのロジックでエラーが発生し使えなかったので
ある程度ソースをChatGPTに指定しながら生成しました。

Sub MoveSheetsToTheEnd()
    Dim sheetOrder() As Variant
    Dim i As Integer

    ' シートの順番を指定
    sheetOrder = Array("Sheet1", "Sheet2", "Sheet3")

    ' シートを指定された順番に末尾に移動させる
    For i = LBound(sheetOrder) To UBound(sheetOrder)
        Sheets(sheetOrder(i)).Move After:=Sheets(Sheets.Count)
    Next i
End Sub

4f904680afbc77becfdc