hi man, Is this your mean.

SUB GETNAME()
FOR EACH SH IN ACTIVEWORKBOOK.WORKSHEETS
SH.NAME = SH.RANGE(\"A1\").VALUE
NEXT SH
END SUB


--
vumian
------------------------------------------------------------------------
vumian's Profile: http://www.excelforum.com/member.php...o&userid=36494
View this thread: http://www.excelforum.com/showthread...hreadid=567427