シートを追加する

Excel VBAでシートを追加するには
WorksheetsコレクションのAddメソッドにて行います。

以下のようなブックがあるとします。

以下のコードを実行します。

Sub Proc_シート追加()
    Worksheets.Add Worksheets(1), , 2
    Worksheets.Add , Worksheets(Worksheets.Count)
End Sub

第一引数を指定すると指定したシートの前にシートを追加します。
第二引数を指定すると指定したシートの後にシートを追加します。
第三引数を指定すると指定した数のシートを追加します。

サンプルコードでは
まず最初のシートの前に2つシートを追加しています。
次に最後のシートの後に1つシートを追加しています。

なお第一引数または第二引数のうちいずれか一つを指定することが必要です。
また第一引数と第二引数の両方を指定するとエラーになります。
第三引数を指定しない場合、追加されるシート数は1になります。

結果は以下のようになります。