シートを移動するには?
キーワード>>Move
Sub Test() MsgBox "Sheet1をSheet3の後ろに移動します。" Worksheets("Sheet1").Move after:=Worksheets("Sheet3") MsgBox "Sheet1をSheet3の前に移動します。" Worksheets("Sheet1").Move Before:=Worksheets("Sheet3") End Sub
掲載サンプルコードの使用に関して、直接・間接 を問わず生じた一切の損害について如何なる責任も負いません。