Tab Name same as Cell - PART 2

H

halem2

First of..thanks for the previous help.

I'm running into a lil' problem. If I have more than one sheet i
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 workshee
regardless if it is sheet 1 or sheet3???

thanks a millio
 
Top