Saving workbook to multiple locations

[Mark]

I have a fair sized workbook at 25 mb and I need to save it to three
different locations.

The first location is saved as "Workbook.xls" on the server and has full
read/write access and only three people have access to it. The second
location is saved as "Workbook2.xls" and is also on the server (this is read
only). The third location in on the author's hard drive in case the server
fails.

I use the SaveAs and SaveCopyAs commands, but it seems to take absolutely
forever. I would guess it to take a full 5 minutes to close. Does anyone
have any suggestions to make this process faster or is there a better way to
save to these locations?

TIA...

Mark

 

[Ron de Bruin]

Close the workbook and use FileCopy

Sub Copy_One_File()
FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub