ワークシートの追加は次のように行います。
先頭にシートを追加する
Sub Test() Worksheets.Add End Sub
"Sheet2"の前にシートを追加する
Sub Test() Worksheets.Add Before:=Worksheets("Sheet2") End Sub
"Sheet2"の後にシートを追加する
Sub Test() Worksheets.Add After:=Worksheets("Sheet2") End Sub
シートを指定数追加する
Sub Test() Worksheets.Add Count:=3 End Sub
"Sheet2"の後にシートを指定数追加する
Sub Test() Worksheets.Add After:=Worksheets("Sheet2"), Count:=3 End Sub