Macro to name sheet tabs

[Bill_S]

I need a macro that will automatically name the sheet tab the date that I
enter in cell E4 on my worksheet. I tried the following macro:

Sub Worksheet_Change ()
ws.Name = ws.Range("E4").Value
End Sub

It automatically runs when I enter a new date in cell E4, which is good.
What isn't good is that it gives the following error message:

"Compile error: Procedure declaration does not match description of event or
procedure having the same name."

How can I get this macro to work?

 

[Gary''s Student]

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("E4")
Set t = Target
If Intersect(t, r) Is Nothing Then Exit Sub
ActiveSheet.Name = r.Value
End Sub

In the worksheet code area

 

[Don Guillett]

Private Sub Worksheet_Change(ByVal Target As Range)
if target.address<>"$E$4" then exit sub
activesheet.name=target
end sub

 

[Bill_S]

Excellent! Thank you!
-Bill

Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("E4")
Set t = Target
If Intersect(t, r) Is Nothing Then Exit Sub
ActiveSheet.Name = r.Value
End Sub

In the worksheet code area

 

[Bill_S]

Don- thx for the streamlined version too!
-Bill

Private Sub Worksheet_Change(ByVal Target As Range)
if target.address<>"$E$4" then exit sub
activesheet.name=target
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)