VBAでシートを追加する方法

新しくシートを追加します。
引数の指定により、追加する場所、枚数、追加するシートの種類を指定することが可能です。

構文 Object.Add(Before, After, Count, Type)

設定項目 内容
Object Worksheetsオブジェクトコレクション,
Sheetsオブジェクトコレクション,
Chartsコレクションオブジェクト
Before 指定したシートの直前に新しいシートを追加 [省略可能]
After 指定したシートの直後に新しいシートを追加 [省略可能]
Count 追加するシートの枚数を指定。既定値は1 [省略可能]
Type 追加するシートの種類（上記表参照） [省略可能]


次のサンプルはアクティブブックの一番最後に、シート名を指定して新規ワークシートを追加します。

----------------------------------------------------------------
Sub Sheet_add()
'操作シートの後ろに挿入します。
Worksheets.Add(after:=Worksheets("操作")).Name = "シート名入力"
End Sub
-----------------------------------------------------------------

EXCEL VBA xls Excel2003