Save several copies of the same worksheet

A

ayeshasid

hi.
I have to save 400 copies of the same worksheet in different names.
Any idea's of how i can do this as easy as possible?
 
A

ayeshasid

Hi

It's a clientlist, so i have to name them by each clients name, to make
changes on them later, but they all have to look the same way from the
beginning....

Ron de Bruin skrev:
 
R

Ron de Bruin

Do you have a list of client names in Excel ?
We can use this list to name the workbooks then
 
A

ayeshasid

Yes, i do have the client list in excel
how do i proside to do this then?

Ron de Bruin skrev:
 
R

Ron de Bruin

Try this macro with the names in column A on the activesheet
Change this path
"C:\Users\Ron\test\"

Sub test()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Columns("A").SpecialCells(xlCellTypeConstants)
ThisWorkbook.SaveCopyAs "C:\Users\Ron\test\" & cell.Value & ".xls"
Next cell
Application.ScreenUpdating = True
End Sub

Copy the macro in a normal module

Alt F11
Insert module
Paste it in the module
Alt q to go back to Excel

You can run the macro with Alt-F8
select the macro and press Run
 
Top