Worksheets.Add Before:=シート / After:=シート

 シートを挿入するには、WorksheetsコレクションのAddメソッドを利用します。特定のシートの左側に挿入するには引数Before、右側に挿入するには引数Afterを使って指定します。ブックの一番左端に挿入するときは、現時点で一番左端のシートを意味するSheets(1)を使い、Before:=Sheets(1)と指定すればOKです。

 一番右端に挿入するときは、After:=Sheets(Sheets.Count)とします。Sheets.Countでブック内の総シート数を数えて、これをSheetsコレクションのインデックスに指定すれば、現時点での一番右端のシートを指定できます。

[画像のクリックで拡大表示]