How to create Multiple sheets base on a list and a MASTER sheet

[davi65]

Folks,

Question.

I have a file that I have a list of names (sheet1) start on cell A1. in the same file I have a master Sheet (MASTER). I want to Copy the master sheet to a new sheet and then rename base on (sheet1) cell A1 and that will go on for the all the names on SHEET1 CELL A1.

I have the code BUT I am not sure how to change so I can copy my Master sheet and change the name.

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("Summary").Range("A1")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Next MyCell
End Sub

[Mumps1]

Try:

Please Login or Register  to view this content.

[chlin]

Hi davi,

Please Login or Register  to view this content.

[davi65]

Hi davi,

Please Login or Register  to view this content.

Thank you Guys this one work.

[Mumps1]

The macro chlin suggested will work. However, if you add to the list of names in column A and run the macro a second time, it will generate an error that the sheet already exists. If you run the macro only once, then it will be OK. If you plan on running it more than once, then try the macro I suggested.