Hi Sheila

Sub test()
Sheets("Sheet1").Name = Sheets("Sheet1").Range("A1")
End Sub

--

XL2003
Regards

William



"Sheila" (remove underscores) wrote in message
...
Is there any way I can name a sheet from a worksheet cell??

TIA

Sheila