You can do by sheetname:

Sheets("Sheet1").Name = Range("A1").value

or by sheetindex

Sheets(1).Name = Range("A1").value


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=382406