セルの名前を変換し、それをシートの名前にする

質問

図面のようにセルに　2013/12/1　のように日付が入っていて、その日付にもとづき、シートのタイトルをつけたいのですが、vba で書いてみたのですが、どうしても、

Sub sheetname()

Range("B2").NumberFormatLocal = "yymmdd"

ActiveSheet.Name = Range("B2").Text

End Sub

のようにしか書けません。　シートのタイトルには　/ 　を使えないので、どうしても　NumberFormat を使う必要があるのですが、それをする必要はないので、一発でできないでしょうか？

お詳しい方　お願いします。

回答No.1

tom04 · ベストアンサー

こんばんは！

Sub Sample1()
With ActiveSheet
.Name = Format(.Range("B2"), "yymmdd")
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m