naming a tab based on a cells value

[a.cunje]

Is there a way to name a sheet/tab by a value which is in A1 on its
corresponding sheet?

~Andrew

 

[a.cunje]

i found this

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub


but i dont know how to implement it...where the heck do i put it?

 

[Luke M]

Put this in the Workbook module

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)

Dim EndNumber as String
On Error resume next
EndNumber = 0
sh.Name = sh.Range("a1").Value
Retest:
if err.number <> 0 then
EndNumber=EndNumber + 1
err.clear
sh.Name = sh.Range("a1").Value + "(" + EndNumber + ")"
goto Retest
end if

end sub

If there is already a sheet with the same name, this will add a 1, 2, etc at
the end. If you put it in the workbook module, it should run automatically.