Here is one I posted on another group. Just change to a worksheet_change
event, if desired

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address < Cells(1, "a").Address Then Exit Sub
On Error Resume Next
ActiveSheet.Name = Target
End Sub


--
Don Guillett
SalesAid Software

"sam wildig" <sam wrote in message
...
I am wondering if its possible to name a sheets in excel, with data held
in a
cell in the same worksheet
thanks for the help
regards sam