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
--
Gary''s Student - gsnu200778


"Bill_S" wrote:

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?