You can put your code in the change event of the worksheet.
Still need to catch errors for invalid names

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C1").Address Then ActiveSheet.Name =
Range("C1").Value
End Sub



"Nigel Bennett" wrote:

Is there a way for a Worksheet name to be changed the the
value in a particular cell

I would like the value for example in cell C1 to be the
worksheet name


Thanks

Nigel