エクセル シート作成ボタン作成

質問

原本のシートがありA1~K73までありグラフや表があります
使用時に原本シートにデータ入力をし、
入力が終わった時に保存ボタンを押すとシート名を入力する画面が
出てきて入力後OKを押すと、自動的にシートが作成され
原本シートは最初のなにも書かれてない原本シートに戻すボタンを作りたいのですが
前回聞いたときに作成できたのですが
新たにグラフを乗せたときにエラーが出てきてしまったため
再度投稿しました。

前回のプログラム
Sub 保存()
Dim MySheetName As Variant
MySheetName = InputBox("シート名を入力してください")
If MySheetName = "" Then Exit Sub
Sheets("原本2").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = MySheetName
Sheets("原本").Range("A1:K73").Copy Sheets("原本").Range("A1")
End Sub

これで実行するとシートは自動作成できるのですが
Sheets("原本").Range("A1:K73").Copy Sheets("原本").Range("A1")
この部分で黄色メッセージがでます
いい方法はないでしょうか？

回答No.1

kkkkkm · ベストアンサー

基はこちらですね
http://okwave.jp/qa/q9220420.html
この質問の状態でしたら
Sheets("原本").Range("A1:K73").Copy Sheets("原本2").Range("A1")
になると思いますが、エラーが消えるかどうかは不明です。

エラーの話はこちらですね
http://okwave.jp/qa/q9223399.html

一度マクロではなく手動で実行してみてエラーになるかどうか確認してみた方がいいかもしれません。手動でエラーになるのでしたらマクロ以前になにかしら問題があるという事になります。

お礼

ありがとうございます
試してみます

補足

Sheets("原本").Range("A1:K73").Copy Sheets("原本2").Range("A1")
これでエラーなくできました
ありがとうございます