Ummm, ok, but where do I put this? I answered thanks before I ead
this properly.

Thanks

Sheila




On Mon, 16 May 2005 04:25:47 +0100, "William"
wrote:

Hi Sheila

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