Darren:

try,

Dim sht As Worksheet
i = 2
For Each sht In Sheets
With Sheet2 'codename
If .Cells(11, i) < "" And .Cells(11, i) < sht.Name Then
sht.Name = .Cells(11, i)
End If
i = i + 1
End With
Next sht

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Darren" wrote:

I have a wookbook with 21 sheets. In sheet 2, cells B11 through U11 are the
cells that will change. I need to see if it is possible to change the
proceeding sheets to reflect these cells I mentioned. For example, if I have
PA1, PA2, PA3... in cells B11, B12, B13..., I need to change each tab name to
reflect PA1, PA2, PA3... Make sense?

"Crowbar via OfficeKB.com" wrote:

Don't understand what you mean

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200511/1