Multiple Saves simultaneously

[Rik Ihssen]

Whenever I create an Excel workbook I would like to save it in two, or more,
locations. Is there a way to do this quickly without having to do Save As and
then clicking around my computer to reach the right location for each Save?

 

[Dave Peterson]

You could use a macro:

option explicit
sub save3times()
with activeworkbook
.save
.savecopyas "C:\mybackups\" & .name
.savecopyas "c:\mybackups2\" & .name
end with
end sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Sorting data]

THis is good, but it does not let me choose where to save the initial file.
Is there any way to make the save as option come up for new documents?

 

[Dave Peterson]

Maybe you could replace the .save with:
Application.Dialogs(xlDialogSaveAs).Show