ワークシートの移動は次のように行います。
アクティブなシートを"Sheet2"の後に移動する
Sub Test() ActiveSheet.Move After:=Worksheets("Sheet2") End Sub
"Sheet1"を"Sheet2"の後に移動する
Sub Test() Worksheets("Sheet1").Move After:=Worksheets("Sheet2") End Sub
アクティブなシートを"Sheet2"の前に移動する
Sub Test() ActiveSheet.Move Before:=Worksheets("Sheet2") End Sub
"Sheet1"を"Sheet2"の前に移動する
Sub Test() Worksheets("Sheet1").Move Before:=Worksheets("Sheet2") End Sub