<マクロ>シートの名前を変えたい

質問

いつも、教えていただきありがとうございます。
マクロを始めたばかりなので説明もうまくできるか分かりませんが
教えてください。

データ入力専用のシートがあります。（sheet1ですが、名前は「台帳原紙）
そこにデータを入力した後、控えとしてシートを複製しています。
その後、入力のあるセルをクリアするマクロを自動記録しました。
複製は、シートの名前を指定してないので「台帳原紙（2）」となります。
そこで、自動記録したマクロに修正を加えて名前を変えるところまで
記録したいのです。
上記マクロは、「台帳原紙」にボタンを作りマクロを登録しています。
Sub Macro2()
Sheets("台帳原紙").Copy Before:=Sheets(2)
Sheets("台帳原紙").Select
Range("A2:I19,A21:C30,I21:I30").Select
Range("I21").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-27
Range("A2").Select
End Sub

シートの名前は、今日の日付にしたいです。
台帳原紙のA2に今日の日付が入力されるのでそれを利用する方法でも良いのですが教えていただけませんか？

回答No.1

zap35 · ベストアンサー

Sub Macro2()
　Sheets("台帳原紙").Copy Before:=Sheets(2)
　ActiveSheet.Name = Application.Text(Date, "YYYYMMDD")　'←１行追加
　Sheets("台帳原紙").Select
　　以下省略

ではいかがでしょう？

補足

ありがとうございます！！！
1行追加のシンプルさで完成しました。
また、助けていただくときがあれば宜しくお願いします。

回答No.3

toshi_2000

Sheets("台帳原紙").Name = Format(Now, "yyyymmdd")

お礼

ありがとうございました。
今回、No1に回答していただいたマクロで出来ました。

回答No.2

tom-monta

質問の意味を間違えていたらすいません。
Sheet2.Name = Format$(Now, "yyyymmdd")
でシート名は変更できますが…

尚、/(スラッシュ)はシート名に使えないので、上記のフォーマットとしました。

お礼

3行目からは、クリアの指示なので2行目に追記したのですが
実行時エラー424　オブジェクトが必要です
となります。
入力する場所を間違っているのでしょうか？
質問が正確に伝えられないのもあるのですが、
No1に回答していただいたマクロで出来ました。
どうもありがとうございました。