Hello Excel 2002 - I have a spreadsheet that I rename every month with
the currents month's name,( e.g. Sales for July 2008 ) and has a worksheet
for each work day of the month and a summary tab at the end. I've been
using the following code but the code does not work anymore .
above the code first box is worksheet second box is Selection change
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
newname = Application.WorksheetFunction.Text(Range("J1"), "mm-dd-yy")
ActiveSheet.Name = newname
End With
End Sub

thanks in advance