Activesheet.Name = Activesheet.Range("A1").Text

--
Regards,
Tom Ogilvy

"halem2 " wrote in message
...
First of..thanks for the previous help.

I'm running into a lil' problem. If I have more than one sheet it
fails.
--If I run the Worksheets(1).Name = Range("A1").Text
the only name it changes is the one for sheet1.

--If I run the
dim sh as worksheet
for each sh in Activeworkbook.worksheets
sh.name = sh.Cells(1,1).Value
Next

it also fails when there's more than one sheet

Is there a way to make it happen only in the active worksheet
regardless if it is sheet 1 or sheet3???

thanks a million


---
Message posted from http://www.ExcelForum.com/