Save Workbook in Two Places

[sachavez]

Excel 2010

I'm using the following code to save the workbook in two places.

Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
'SAVES FILE USING THE VARIABLE BOOKNAME AS FILENAME
ActiveWorkbook.SaveAs Filename:="Location A\filename.xlsm", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="Location B\filename.xlsm", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

However, the code is erroring out. What am I doing wrong?

Thanks in advance.

 

[Smitty]

Unless this is your actual file path:

Filename:="Location A\filename.xlsm",

You'll need to modify that part.

E.G. Filename:="A:\filename.xlsm"

HTH,

 

[sachavez]

I should have mentioned that I changed the actual paths to show fake locations. In my actual code, I have the correct paths for both locations.

 

[sachavez]

I also updated the file format as:

fileformat:=52

 

[Smitty]

OK, so what error message do you get?

 

[sachavez]

I change the file format and fried my file. I was able to recover the file by changing the extension to .xls. I then converted the file to .XLSM and gave up on the code.