Saving Excel in more than one location

[Mark C via OfficeKB.com]

I have found a macro for word that will do the job and I tried to put it into
excel. But it comes up with an error 405. I was wondering if anyone knew of
a macro that will allow you to save a file to two different locations. And
that it will prompt you for a save location each time. What i am trying to
do is kep a copy on my computer C drive and a copy on a network server, we
have problems with our server. Please help

 

[Guest]

How about:

Sub SaveAs()
Dim flName As String
Dim fullName As Variant
Dim filter As String
flName = "SaveName"
filter = "Excel Files (*.xls), *.xls"
fullName = Application.GetSaveAsFilename(flName, filter, , "Save copy 1")
If fullName <> False Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs fullName
Application.DisplayAlerts = True
End If
fullName = Empty
fullName = Application.GetSaveAsFilename(flName, filter, , "Save copy 2")
If fullName <> False Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs fullName
Application.DisplayAlerts = True
End If
End Sub

Hope this helps
Rowan

 

[Mark C via OfficeKB.com]

It works perfectly. That is exactly what I am trying to do. Thank you very
much.

 

[Guest]

You're welcome!

It works perfectly. That is exactly what I am trying to do. Thank you very
much.