Sorry but now I need to know how to insert the code. Any additinal kindness?

"Gary''s Student" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then
Exit Sub
End If
v = Target.Value
ActiveSheet.Name = v
End Sub

This is worksheet code, don't paste it into a standard module.
--
Gary''s Student
gsnu200712