新規ワークシートを挿入する(2)

特定のワークシートの手前(左側)に新たにワークシートを挿入する場合は、Worksheets
オブジェクトのAddメソッドを使用する :

Set Worksheet変数 = Workbookオブジェクト.Worksheets.Add Before

アクティブになっているブックの左から2枚目のワークシートの左側に新規ワークシートを
挿入したい場合のサンプルコードを以下に記す :

Sub SampleCreateNewWorksheet3()
     Dim ws As Worksheet
     Set ws = Application.ActiveWorkbook.Worksheets.Add _
                   (Before:=Application.ActiveWorkbook.Worksheets(2))
End Sub

特定のワークシートの手前(左側)に複数の新規ワークシートを挿入する場合の書式は下記
の通り :

Workbookオブジェクト.Worksheets.Add Before, Count

下記のサンプルコードは、左から3枚目のワークシートの左側に、新規ワークシートを
4枚追加するコードである :

Sub SampleCreateNewWorksheet4()
     Application.ActiveWorkbook.Worksheets.Add _
                   Before:=Application.ActiveWorkbook.Worksheets(3), _
                   Count:=4
End Sub

特定のワークシートの後ろ(右側)に新たにワークシートを挿入する場合は、Worksheets
オブジェクトのAddメソッドでAfter引数を指定する :

Set Worksheet変数 = Workbookオブジェクト.Worksheets.Add After

アクティブになっているブックの左から2枚目のワークシートの右側に新規ワークシートを
挿入したい場合のサンプルコードを以下に記す :

Sub SampleCreateNewWorksheet5()
     Dim ws As Worksheet
     Set ws = Application.ActiveWorkbook.Worksheets.Add _
                   (After:=Application.ActiveWorkbook.Worksheets(2))
End Sub

Before引数を指定する場合と同様、特定のワークシートの後ろ(右側)に複数の新規ワーク
シートを挿入する場合の書式は下記の通り :

Workbookオブジェクト.Worksheets.Add After, Count

左から3枚目のワークシートの右側に、新規ワークシートを4枚追加するコードを下記に記す :

Sub SampleCreateNewWorksheet6()
     Application.ActiveWorkbook.Worksheets.Add _
                   After:=Application.ActiveWorkbook.Worksheets(3), _
                   Count:=4
End Sub