検索でここに飛ばされたあなた、間違ってます。
下記プロシージャは動作しません。理由は分かりますか?

Sub test()
ActiveWorksheet.Copy
End sub

ここまで露骨に書けば分かると思いますが、フツーやるでしょ?
ワークシート以外のシートなんて使ったことないし。Sheetの項目でちょろっと出るだけでしょ。
3時間迷いましたよ。


正解
ActiveSheet