Don- thx for the streamlined version too!
-Bill

"Don Guillett" wrote:

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

"Bill_S" wrote in message
...
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?