save to two locations in word and powerpoint

[DrMarsha]

I understand there there is a macro
(http://www.gmayor.com/automatically_backup.htm) for word. Can that same
macro be used in powerpoint and excel? I tried and it gives me an error..if
not, anyone know a macro?

 

[Shasur]

Hi

Here is the modified one for powerpoint

Sub SaveBackUpFile_PPT()

Dim strFileA As String
Dim strFileB As String
Dim strFileC As String

Application.DisplayAlerts = False
ActivePresentation.Save
strFileA = ActivePresentation.Name

'Define backup path shown in blue below

strFileB = "c:\temp\Backups\" & strFileA
strFileC = ActivePresentation.FullName

ActivePresentation.SaveAs FileName:=strFileB
ActivePresentation.SaveAs FileName:=strFileC

Application.DisplayAlerts = True

End Sub


and the one below cane be used for Excel

Sub SaveBackUpFile_Excel()

Dim strFileA As String
Dim strFileB As String
Dim strFileC As String

Application.DisplayAlerts = False
ActiveWorkbook.Save
strFileA = ActiveWorkbook.name

'Define backup path shown in blue below

strFileB = "c:\temp\Backups\" & strFileA
strFileC = ActiveWorkbook.FullName

ActiveWorkbook.SaveAs Filename:=strFileB
ActiveWorkbook.SaveAs Filename:=strFileC

Application.DisplayAlerts = True

End Sub


Cheers