daniel, without any error checking just use this, ActiveSheet.Name = [D1]


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"daniel chen" wrote in message
...
I use D1 to track the worksheetname.
D1

=MID(CELL(""filename"",Sheetname!A1),FIND(""]"",CELL(""filename"",Sheetname!
A1))+1,255)

Is it possible to have it in reverse?
i.e. to change the name of the worksheet to what is in cell (D1)
Thanks