Right-click on the worksheet tab, select View Code, and paste in the
following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Me.[D1], Target) Is Nothing Then
On Error GoTo InvalidName
Me.Name = Target.Value
Exit Sub
End If
InvalidName:
MsgBox "Invalid sheet name."
End Sub

---
Press ALT+Q to close the VBE.

HTH
Jason
Atlanta, GA


"Karen" wrote:

I have a date in cell D1 and (of course) it changes every day. Is there a
way of auto updating the sheet tab name when the date changes in cell D1?

Thank you, Karen