Just as the Subject Line says I need to automatically rename the Tab with the
contents in a particular cell. I think there is a way to do it using VBA
script but I am clueless.

Thanks

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

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