IT工務店　店主のつぶやき日記

エクセルVBAでシートをコピーする事はよく有ります。
例えば、月別にシートを作りたい場合、ひな形になるシートを用意して置いて、

Sheets("ひな形").Copy After:=Sheets("Sheet3")

のような書き方ですね。
別のブックにコピーするなら、
 Sheets("ひな形").Copy After:=Workbooks("Book3").Sheets("Sheet2")

シートのコピーメソッドについて、ここでは細かく書きませんが、
今回書きたいのは、コピーした先のシートの名前を変えたい場合です。
例えば、上の場合、ひな形をコピーしたら「1月」とか「2月」・・とか名前を変えたいですね。

シートを追加した場合ですと、
    Dim WS　 As Worksheet
    Set WS = Worksheets.Add()
    WS.Name = "1月"
のように、Addメソッドを使用した時にオブジェクトを取得できるので
簡単にシート名を変える（追加だから付けるですね）事が出来るのですが、
Copyではそうは行きませんね。

そこで、よく観察して見ると、
実はシートをコピーすると、コピー先のシートが必ずアクティブになりますね。
（普通にエクセルでシートをコピーしてもそうですね）

だから、
Sheets("ひな形").Copy After:=Sheets("Sheet3")
ActiveSheet.Name ="1月"

のように書くと、コピー先のシート名が変えることが出来るのですね。

これは移動（Move）でも同じ事です。

なんだか、頭の体操ですね。