save copy

[tintin1012000]

Hi,

Im looking for code so when closing the workbook it saves a copy to a different location on the server, this way i will always have a back up

Thanks

 

[marka87uk]

Hi, try this:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="C:\" & ActiveWorkbook.Name
ActiveWorkbook.Close
End Sub