マクロでシートのセレクトの仕方をお教えください

質問

雛形.xls のなかに次のシート

Sheet1 Sheets("今年データ")
Sheet2 Sheets("メモ・検算")
Sheet3 Sheets("06年度電力")
Sheet4 Sheets("06年度重油")
Sheet5 Sheets("06年度ガス")

Sheet3から5まではマクロで年度を書き換えるので
Sheet3から5までシートナンバーで.Selectして
新しいブックにコピーしたいのですが
良い方法を教えてください。

回答No.1

yasuyasu77 · ベストアンサー

以下でいかがでしょう？
Sheets(Array(3, 4, 5)).Copy

お礼

早速の回答有難うございます 希望どうりに出来ました。
齢70歳になる老トルですが これからもお世話に
なるかと思いますが 宜しくお願い致します。

回答No.2

Raistlin

以下のようにすれば「シートナンバーで.Selectして
新しいブックにコピー」は不要だと思いますが、いかがでしょう。

Sub MkNwFl()
Const Tmplt As String = "F:\document\excel\雛形.xls"

Set NBk = Workbooks.Add(Tmplt)
For i = 3 To 5
NBk.Sheets(i).Name = Format(Now, "YY") & NBk.Sheets(i).Name
Next
End Sub