エクセルでシート名をセル参照するマクロ

質問

いつもお世話になっております。

ワークシートをコピーする際、
B1セルの値を複製したシート名にするマクロを
と思ってやってみましたが、

Sub Macro1()
'
' Macro1 Macro

Sheets("0000").Select
Application.CutCopyMode = False
Sheets("0000").Copy Before:=Sheets(3)
Range("B1").Select
Selection.Copy
Sheets("0000 (2)").Select
Sheets("0000 (2)").Name = "0524"
Range("B1").Select
End Sub

5行目でB1セルをコピーしましたが、
シート名として命名されたのは、
"0524"という固定の値でした。
（そのときのB1セルの値です）

このB1セルは日付データなのですが、
マクロを実行する日によって、
翌日だったり、3日後だったりします。
（営業日ベースなので）

どのようにしたら、B1セルの値を
シート名に使用できるでしょうか
よろしくお願いいたします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

>"0524"という固定の値でした。
コードで、

Sheets("0000 (2)").Name = "0524"

と、B1とは無関係に、「0524」という値を名前にセットしているのだから、当然です。
セルB1の値をコピーする操作は意味がありません。
セルB1の値を、直接SheetのNameプロパティに設定します。
一連の動作は、以下のように記述出来ます。

Sub Macro1()

　　Sheets("0000").Copy Before:=Sheets(3)

　　On Error Resume Next

　　ActiveSheet.Name = Range("B1").Value

End Sub

お礼

ありがとうございました。
完璧です！！

最初のマクロは、
『マクロの記録』で作成したものです。
それで、あとで中身をみていたら、

Sheets("0000 (2)").Name = "0524"
となっていたので、どうしたものかと
困っていたところでした。
これはいろいろ使いでがありそうなマクロです。