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

--
Regards,
Tom Ogilvy

"Ctech" wrote in
message ...

Hi

I want to save my workbook with 10 different name, and the date of
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, however
after some research it seems that it isn't the easiest task. So I guess
xls would do


--
Ctech
------------------------------------------------------------------------
Ctech's Profile:
http://www.excelforum.com/member.php...o&userid=27745
View this thread: http://www.excelforum.com/showthread...hreadid=475395