Copy template workbook multiple times and rename based on list?

[ironny90]

Hi everyone! I hope everyone is having a good day. I am trying to copy a template workbook (with multiple sheets) multiple times and rename based on a name list. I found the following code, edited it and tested it. But I don't know how to add the template in? I don't just want an empty workbook and rename it. I want it to be copied from an existing template. Many thanks in advance if anyone can help.

Sub CopyWorkbook()

Dim wbName as String

For i = 1 to 10

wbName = Cells(i, 1).Value

Workbooks.Add

ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\" & wbName & ".xlsx"

Close

Next i

End Sub

 

[ironny90]

Copy a Workbook Multiple Time and Rename based on a list

Hello, I need to duplicate a workbook multiple times and rename the new workbook based on a list of names. I found this code and it worked once but now I get an error. The workbook does contain multiple sheets. Sub SaveMasterAs() Dim wb As Workbook Dim rNames As Range, c As Range, r As...

www.mrexcel.com

Just saw this. I think this one solves my problem.