How to run FileSave Macro when Save is selected in VBA

[Stealth2016]

I have the following Macro that saves a file to a different location with the file name being what is in cell B7.

Sub FileSave ()
Dim FP As String, FN As String
FP = "Ë:\Quotes\"
FN = Range("B7").Value
ActiveWorkbook.SaveAs filename:= FP & FN & ".xls"

End Sub

How do I get this to RUN whenever any method of Save is selected.

 

[lrobbo314]

In the VBA editor, select the 'ThisWorkbook' object and add code to the Workbook_BeforeSave event.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FP As String, FN As String
FP = "Ë:\Quotes\"
FN = Range("B7").Value
ActiveWorkbook.SaveAs Filename:=FP & FN & ".xls"

End Sub

 

[Stealth2016]

I have tried this but fails to run - stops on

ActiveWorkbook.SaveAs Filename:=FP & FN & ".xls"

 

[JoeMo]

Does the file you want to save to a different location have a .xls file extension? If not, what is its file extension?

 

[Stealth2016]

Any File with VBA in the Workbook has to be a Macro Enabled File so it has a file extension of .xlsm. Have tried with .xlsm and with no file extension - still fails to run.

 

[Stealth2016]

Thank you both for your time. Problem has been resolved. IT man hadn't shared the E:\Quotes| folder. Your assistance with the Before Save worked. Once again Thank you.

 

[lrobbo314]

───────────────────░█▓▓▓█░▇▆▅▄▃▂
──────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
─────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
──────────░░░───░█▓▓▓▓▓▓█░▇▆▅▄▃▂ ...
─────────░███░──░█▓▓▓▓▓█░▇▆▅▄▃▂
───────░██░░░██░█▓▓▓▓▓█░▇▆▅▄▃▂
──────░█░░█░░░░██▓▓▓▓▓█░▇▆▅▄▃▂
────░██░░█░░░░░░█▓▓▓▓█░▇▆▅▄▃▂
───░█░░░█░░░░░░░██▓▓▓█░▇▆▅▄▃▂
──░█░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░█░░░█░░░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░█░░░░██░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░░█░░░░░██░░░█▓▓▓█░▇▆▅▄▃▂
─░█░█░░░█░░░░░░███▓▓▓▓█░▇▆▅▄▃▂
░█░░░█░░░██░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░█░░░░█████▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░░█░░░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░█░░░░██░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
─░█░█░░░░░████▓▓▓▓██░▇▆▅▄▃▂
─░█░░█░░░░░░░█▓▓██▓█░▇▆▅▄▃▂
──░█░░██░░░██▓▓█▓▓▓█░▇▆▅▄▃▂
───░██░░███▓▓██▓█▓▓█░▇▆▅▄▃▂
────░██▓▓▓███▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓▓▓▓▓▓█░▇▆▅▄▃▂