自ブックのシートを指定の位置に移動させる。

シートを移動させるにはMoveメソッドを利用します。
シートを指定した位置に移動させたい場合は、Moveメソッドの引数でBefore、またはAfterを指定します。
注意点としてBefore、またはAfterの引数を指定しない場合は、新しいブックにシートが移動するので自ブック内で移動させたい場合は引数が必須になります。

　●指定したシートの手前に移動

'******************************************************************
'　指定したシートの手前に移動
'******************************************************************
Sub Main_MoveBefore()

    '[Sheet1]を[Sheet3]の手前に移動させる
    Sheets("Sheet1").Move Before:=Sheets("Sheet3")

End Sub

　■実行結果

　●指定したシートの後ろに移動

'******************************************************************
'　指定したシートの後ろに移動
'******************************************************************
Sub Main_MoveAfter()

    '[Sheet1]を[Sheet3]の後ろに移動させる
    Sheets("Sheet1").Move After:=Sheets("Sheet3")

End Sub

　■実行結果

　●全体の左端に移動

'******************************************************************
'　全体の左端に移動
'******************************************************************
Sub Main_Left()

    '[Sheet1]を左端に移動させる
    Sheets("Sheet1").Move before:=Sheets(1)

End Sub

　■実行結果

　●全体の右端に移動

'******************************************************************
'　全体の右端に移動
'******************************************************************
Sub Main_MoveRight()

    '[Sheet1]を右端に移動させる
    Sheets("Sheet1").Move After:=Sheets(Sheets.Count)

End Sub

　■実行結果