Hi Steve,
Try:
'==================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

Set rng = Range("A1")

On Error Resume Next
If Not Intersect(Target, rng) Is Nothing Then
If Not IsEmpty(rng) Then
Sheet2.Name = rng.Value
End If
End If
On Error GoTo 0

End Sub
'<<==================



---
Regards,
Norman



"Steve" wrote in message
news:pIj7f.298576$tl2.109713@pd7tw3no...
Hi All,

Does anybody know how I can automatically name the sheets of a workbook
based on the contents of a cell. For example, if I have the word January
in
Cell A:1, I would like the Sheet name to be January. If I change January
to May, I would like the sheet to automatically update and rename itself
to May.

Any ideas?

Thanks,

Steve