不特定のシートをコピーする方法を御教示下さい。

１．１個のブックに、１０シート前後作成してあります。（増減の可能性があり最終が何シートになるかわかりません）

２．そのようなブックが多数あります。

３．その時に、どのブックのどのシートでも、アクティブになっているその１シートのみを、新しいブックとして作成したい。

４．上記のような条件で、共通のマクロの作成を御教示御願い致します。

５．マクロボタンで操作をしたいと考えております。

宜しく御願い致します。

No.1 ベストアンサー 回答者： moon00 回答日時： 2006/02/28 19:19

マクロはこんな感じになるのでは。

当然、その場合は該当ブックがアクティブとなるのですよね。

Sub Macro()
ActiveWorkbook.ActiveSheet.Copy
End Sub

この回答へのお礼

１行で出来るんですね。

完成しました。

本当に有難う御座いました。

お礼日時：2006/03/01 10:27