Maybe this..........

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("B7").Value < shname Then
shname = Format(Range("b7").Value, "m_d_yy")
End If
Me.Name = shname
End Sub

Vaya con Dios,
Chuck, CABGx3


"cursednomore" wrote:

I have 52 worksheets, for each week of the year. In each worksheet, the
beginning date is in A2. I would like to show the beginning date as the tab
name, but I understand that I can't have a "/" in the tab name. Any
suggestions, without physically renaming each sheet?