Boa tarde, amigo.

Segue o que você precisa.

Private Sub Backup()
FileCopy Endereço_Atual, Endereço_Final
End Sub

Atenciosamente;

Oh, meu amigo desculpe a minha ignorância, mas não consegui. coloquei o codigo abaixo e não deu certo,

Private Sub Backup()
FileCopy = "M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PET, M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PETBackup"
End Sub

quando salvo o fecho o VBA não consigo chamar a macro depois, o que posso ter feito de errado?

Obrigado.

obs: endereço atual = M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PET
endereço final = M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PETBackup"

Cole em esta pasta de trabalho

Para funcionar precisa ser colado no evento beforeclose da pasta de trabalho.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
FileCopy = "M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PET, M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PETBackup"
End Sub

Olá garoto,

Infelizmente não deu certo, segue arquivo em anexo pra você ver o que eu fiz,
Vou abri um novo tópico e colar o arquivo.
Se puder me ajudar e cola-la pra mim te agradeço muito,

Deus que ajude!

Boa-tarde amigo
Tente assim...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.SaveAs "M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PET, M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PETBackupNome_do_Arquivo.xls"

End Sub

Att,

Francisco