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



Sorting data wrote:

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" wrote:

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

Rik Ihssen wrote:

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?
--
Rik Ihssen
Principal
Washington Twp. Elem.
Valparaiso, IN

--

Dave Peterson


--

Dave Peterson