Anyone know how to create/save multiple files in one shot?

[Sunny54321]

Hi,

I was trying to figure out a simpler way to create individual excel files for over 300 people in one shot.

I have created an excel template and have a list of 300 people. Rather than one at a time, is there a way to do it in one shot?

Thanks,
Sunny

 

[JLGWhiz]

Hi,

I was trying to figure out a simpler way to create individual excel files for over 300 people in one shot.

I have created an excel template and have a list of 300 people. Rather than one at a time, is there a way to do it in one shot?

Thanks,
Sunny

You said you created a template, but if it is not saved as a .xlt or .xltx extension then it is a form that you use as a template. If it is a form that you use as a template then you can save the workbook it is in as a macro enableb workbook, .xlsm, and use the code below to create your workbooks for individuals. Lets say that the form is on sheet one of your workbook and the list of names is in Column A of sheet 2 of the workbook, the names beginning on row 2.

Sub makeWBks()
Dim sh1 As Worksheet, sh2 As Worksheet, nm As Range
    For Each nm In sh2.Range("A2", sh2.Cells(Rows.Count, 1).End(xlUp))
        If nm <> "" Then
            sh1.Copy
            ActiveWorkbook.SaveAs sh2.nm.Value & ".xlsx"
            ActiveWorkbook.Close False
        End If
    Next
End Sub

If it is in fact a template. Then the code would need to be run from another workbook and would require some modification to identify the template file, etc.

 

[Sunny54321]

Thanks, I'll give it a try!!!