Excelでセル入力してEnterを押せば同時にシート名も変える方法は

質問

Excelでセル入力してEnterを押せば同時にシート名も変える方法は？

Excelのシート名を下記のような式をコマンドボタンに入力して、C6に日付を入力後、コマンドボタンを押してシート名を変更しています。それを、C6セルに入力し、Enterを押した時点でシート名を変更するにはどういう式を入れれば良いのでしょうか？
ご教授お願いいたします。

Private Sub CommandButton1_Click()
'
' Macro1 Macro
' マクロ記録日 : 2010/6/21 ユーザー名 : ○○○○
'
Range("C6").Select
Application.CutCopyMode = False
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"

Sheet1.Name = Range("C6").Text & "～"

End Sub

回答No.1

mu2011 · ベストアンサー

一例です。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6")) Is Nothing Then Exit Sub
Target.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"
Sheet1.Name = Target.Text & "～"
End Sub

お礼

うまい具合にできました。
お早い回答を頂き、本当に助かりました。
どうもありがとうございます。
今後とも宜しくお願いいたします。