Tom provided the code below...the code works great. My next problem: I have
quite a few tabs to rename. I got to my limit I think. It won't work for
sheets past a certain number of code lines. My question is: Is there a limit
to the number
of iterations? If so, how do I get around this? Any help would be
appreciated...Thanks!


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.count 1 then exit sub
If Target.Value = "" then exit sub
if not intersect(Target,range("E9:E24")) is nothing then
if Target.Address = "$E$9" then
Sheet3.Name = Target.Value
Sheet3.Range("C6") = Target.Value
end if
' add code for other cells
End if
End Sub