Executar Macro ao fechar planilha

Boa Tarde
Estou tentando colocar uma macro de salvar uma cópia assim que eu fechar a planilha, coloquei essa formula, porém não da certo, poderiam me ajudar?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.SaveAs Filename:=“C:\Users\MARKETING2\Documents\Planilha Transportadora”

End Sub

Boa noite…

Segue a solução. Onde xxx é o nome do arquivo. Ele não sobrepoe, pois cria um novo backup a cada dia e hora.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\xxx " & Date & Mid(Time, 1, 2) & “-” & Mid(Time, 4, 2) & “-” & Mid(Time, 7, 2) & “.xlsm”

End Sub