同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか

EXCELVBAであるシートに作業をさせるVBAを作成しました。
同じ作業を複数のシートに
実行させるにはどうしたらいいのでしょうか。
宜しくお願い致します。

**************作成したVBA**********

Sheets("sheet1").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
　　…50行ほどあります…

***********************************

↓
sheet1とsheet2に同じ作業をさせたい
以下のやりかただと長くなるためまとめたい
　　
**************作成したVBA**********

Sheets("sheet1").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
　　…50行ほどあります…

Sheets("sheet2").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
　　…50行ほどあります…

Sheets("sheet3").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
　　…50行ほどあります…

***********************************

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2007/09/19 15:49

全く同じ処理なら、シートのグループ化という方法もあります。

Sheets(Array("Sheet1", "Sheet3")).Select
処理
　：

http://officetanaka.net/excel/vba/tips/tips32.htm

この回答へのお礼

回答ありがとうございました。
早速修正したらできました。
ありがとうございました。

お礼日時：2007/09/19 16:25