Copy the code below, right click on sheet 2's tab, select "View Code" and paste the code in the
window that appears.

HTH,
Bernie
MS Excel MVP

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then Target.Parent.Name = Target.Value
End Sub



"comotoman" wrote in message
...

I am creating a workbook that will keep my company up to date on yearly
job reviews. Sheet one has a name, and I would like to type the "Job
Name" on sheet 2, cell a3 and have it appear as sheet 2 name. Can this
be done?


--
comotoman
------------------------------------------------------------------------
comotoman's Profile: http://www.excelforum.com/member.php...o&userid=27292
View this thread: http://www.excelforum.com/showthread...hreadid=472174