I found a great VBA macro for Word (see below) that allows me to save
to multiple locations simultaneously. I would like to do the same in
Excel. Even better would be something that auto saves (at set
interval) to multiple locations.

I tried to use the Word code in Excel, but I guess the methods are
different.
Thanks

Sub SaveToTwoLocations()
Dim strFileA As String
Dim strFileB As String
Dim strFileC As String

'Save first just to be safe
ActiveDocument.Save
strFileA = ActiveDocument.Name
'Capture the name of the current (real) doc before the 'SveAs' changes
it
strFileC = ActiveDocument.FullName

'Define backup paths
strFileB = "C:\Documents and Settings\Administrator\My Documents\Backup
\MS Word\SaveTwoLocations\" & strFileA
strFileB2 = "H:\Word Backups - SaveToTwoLocations\" & strFileA

'Save backups
ActiveDocument.SaveAs FileName:=strFileB
ActiveDocument.SaveAs FileName:=strFileB2

'Set the current (active) doc back to the original
ActiveDocument.SaveAs FileName:=strFileC

End Sub

You simply have to change ActiveDocument to either activeworkbook or
thisworkbook.

"livetohike" wrote:

> I found a great VBA macro for Word (see below) that allows me to save
> to multiple locations simultaneously. I would like to do the same in
> Excel. Even better would be something that auto saves (at set
> interval) to multiple locations.
>
> I tried to use the Word code in Excel, but I guess the methods are
> different.
> Thanks
>
> Sub SaveToTwoLocations()
> Dim strFileA As String
> Dim strFileB As String
> Dim strFileC As String
>
> 'Save first just to be safe
> ActiveDocument.Save
> strFileA = ActiveDocument.Name
> 'Capture the name of the current (real) doc before the 'SveAs' changes
> it
> strFileC = ActiveDocument.FullName
>
> 'Define backup paths
> strFileB = "C:\Documents and Settings\Administrator\My Documents\Backup
> \MS Word\SaveTwoLocations\" & strFileA
> strFileB2 = "H:\Word Backups - SaveToTwoLocations\" & strFileA
>
> 'Save backups
> ActiveDocument.SaveAs FileName:=strFileB
> ActiveDocument.SaveAs FileName:=strFileB2
>
> 'Set the current (active) doc back to the original
> ActiveDocument.SaveAs FileName:=strFileC
>
> End Sub
>
>

See the VBA help in Excel for SaveCopyAs

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Joel" <(E-Mail Removed)> wrote in message news:05202C6A-04A9-4B0A-974E-(E-Mail Removed)...
> You simply have to change ActiveDocument to either activeworkbook or
> thisworkbook.
>
> "livetohike" wrote:
>
>> I found a great VBA macro for Word (see below) that allows me to save
>> to multiple locations simultaneously. I would like to do the same in
>> Excel. Even better would be something that auto saves (at set
>> interval) to multiple locations.
>>
>> I tried to use the Word code in Excel, but I guess the methods are
>> different.
>> Thanks
>>
>> Sub SaveToTwoLocations()
>> Dim strFileA As String
>> Dim strFileB As String
>> Dim strFileC As String
>>
>> 'Save first just to be safe
>> ActiveDocument.Save
>> strFileA = ActiveDocument.Name
>> 'Capture the name of the current (real) doc before the 'SveAs' changes
>> it
>> strFileC = ActiveDocument.FullName
>>
>> 'Define backup paths
>> strFileB = "C:\Documents and Settings\Administrator\My Documents\Backup
>> \MS Word\SaveTwoLocations\" & strFileA
>> strFileB2 = "H:\Word Backups - SaveToTwoLocations\" & strFileA
>>
>> 'Save backups
>> ActiveDocument.SaveAs FileName:=strFileB
>> ActiveDocument.SaveAs FileName:=strFileB2
>>
>> 'Set the current (active) doc back to the original
>> ActiveDocument.SaveAs FileName:=strFileC
>>
>> End Sub
>>
>>