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

質問

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

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

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

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

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

宜しく御願い致します。

回答No.1

moon00 · ベストアンサー

マクロはこんな感じになるのでは。
当然、その場合は該当ブックがアクティブとなるのですよね。

Sub Macro()
ActiveWorkbook.ActiveSheet.Copy
End Sub

お礼

１行で出来るんですね。

完成しました。

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