Thanks so much for that, I appreciate it.

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