Save workbook with 10 different names

[Ctech]

Hi

I want to save my workbook with 10 different name, and the date o
saving.

format: existing name of workbook + i.e. Martin Hansen + mm-yyyy
.xls


Even better would be to save the .xls files as .zip files, howeve
after some research it seems that it isn't the easiest task. So I gues
.xls would d

 

[Tom Ogilvy]

Assume the names are in Range(A1:A10) of the active sheet.
sName = Activeworkbook.FullName
sName = Left(sName,len(sname)-4)
for each cell in Range(A1:A10)
activeworkbook.SaveCopyAs sName & cell.Value & format(Date, _
"mm-yyyy") & .xls
Next

 

[Ron de Bruin]

Hi Ctech

Have you try the suggestions yesterday ? in this tread
Save workbook, in .zip

 

[Ctech]

No I haven't had the time to try it yet. However I will later. Ill keep
u posted.

Thanks