Create Copy File/Workbook When Click Save (VBA)

[ybr_15]

Hi dear,

I have a workbook (example: Report.xlsm) in my local computer. In this workbook, I want to run a vba code to create a copy every time I click the save button to certain directory in my server (example: \\192.168.0.6\Production\). So, I will have 2 Report.xlsm files, 1 in my local computer and 1 on the server. Can anyone help me how to do that? Thank you

 

[Logit]

.

Sub SaveMyWorkbook()
         
    Dim strPath As String
    Dim strFolderPath As String
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    strFolderPath = "C:\Users\My\Desktop\"
    strPath = "Backup.xlsm"
    ActiveWorkbook.SaveAs Filename:=strPath
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
     
End Sub

Change path and workbook name as required.