Folder = "c:\temp\"
for i = 1 to 150
thisworkbook.saveas filename:=Folder & "book" & i & ".xls"
next i

"nhollingdale" wrote:

Hi,

I am trying to create a Macro in Excel that will open a workbook and then
save it under a new name, but i would like to do this 150 times, so i will
have 150 uniquely named workbooks containing the same data. is this possible?


Thanks
Nicola