新しいワークシートを追加する【Addメソッド】【ExcelVBA】

構文
Addメソッドのコードサンプル
注意点
関連記事

構文

Sheets.Add (Before, After, Count, Type)

Before・・・指定したシートの直前にシートを追加。【省略可能】
After ・・・指定したシートの直後にシートを追加。【省略可能】
Count・・・追加するシートの枚数を指定。【省略可能】規定値は1
Type ・・・追加するシートの種類を指定。【省略可能】規定値は xlworksheet ※下記参照

Addメソッドは指定した Sheets オブジェクトに対して、 Before もしくは After で指定した位置に新しいシートを追加します。

Typeで指定する定数一覧（XlSheetTypeクラス）
通常使用するのはxlworksheet でしょう。

名前	値	説明
xlchart	-4109	グラフシート(chart)
xl/sheet	-4116	ダイアログシート
xlExcel4IntlMacroSheet	4	Excel バージョン 4 International Macro シート
xlExcel4MacroSheet	3	Excel バージョン 4 マクロシート
xlworksheet	-4167	ワークシート（規定値）

Addメソッドのコードサンプル

Public Sub sample()

    '■引数省略すると、表示しているシートの直前の位置に新しいシートを追加
    Worksheets.Add
    
    '■最後尾のシートに新しいシートを追加
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    
    '■最後尾の一つ前に新しいシートを追加し、シート名を「sample」にする
    Worksheets.Add(before:=Worksheets(Worksheets.Count)).Name = "sample"
    
    '■シート追加する前のシートをアクティブにする(シートを追加するとアクティブシートが変更になるのを防ぐ)
    Dim wsold As Worksheet
    Set wsold = ActiveSheet
    Worksheets.Add
    wsold.Activate

    '■先頭のシートの前に3つシートを追加する
    Worksheets.Add before:=Worksheets(1), Count:=3
End Sub