try

ActiveSheet.Name = range("G1").value

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Wanna Learn" wrote in message
...
Hello
Below is the code I've been using,
now I want to change to code so that instead of a date is the word on cell
G1
How do I correct this thanks

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
newname = Application.WorksheetFunction.Text(Range("G1"), "mm-dd-yy")
ActiveSheet.Name = newname
End With
End Sub