Sheet Re-Name

[UpTheArgyle]

Hi
I have 52 weeks (WK_END 28 June....etc) listed down column A and would like to quickly via a macro create 52 more worksheets named as per the CELL A1 & A2 & A3...A52 etc etc....can anyone help me with that code please?

Thanks

 

[Smitty]

How's this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> Range<br>        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> ActiveSheet.Range([A1], Cells(Rows.Count, "A").End(xlUp))<br>            Sheets.Add after:=Sheets(Sheets.Count)<br>            ActiveSheet.Name = c.Text<br>        <SPAN style="color:#00007F">Next</SPAN> c<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,