Add new sheet and rename sheet from list

[Alpacino]

Hi,

I want a macro that will add new worksheets and rename them from a list of names in range a1 to a35 sheet1 so I will have 35 new worksheets with names from list.

Thanks

 

[Smitty]

See if this gets you started:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> AddSheets()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet<br>    <br>        <SPAN style="color:#00007F">Set</SPAN> ws = Sheets("Sheet1") <SPAN style="color:#007F00">' Change to whatever sheet the names are in</SPAN><br>        <br>        <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> ws.Cells(Rows.Count, "A").End(xlUp).Row<br>            Sheets.Add After:=Sheets(Sheets.Count)<br>            ActiveSheet.Name = ws.Cells(i, "A").Value<br>        <SPAN style="color:#00007F">Next</SPAN> i<br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Note there's no error handling to check for valid sheet names, or if a sheet already exists.

HTH,