For Each sh In Activeworkbook.Worksheets
sh.Name = sh.Range("C4").Value
Next sh
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"vumian" wrote in
message ...
I have a file that i do not know how many sheet are there in before
i need to copy contain of C4 to name of sheets
Thank for your help.
--
vumian
------------------------------------------------------------------------
vumian's Profile:
http://www.excelforum.com/member.php...o&userid=36494
View this thread: http://www.excelforum.com/showthread...hreadid=564347