Bom dia, amigo;
Pelo que eu entendi, você precisa inserir o código abaixo no módulo EstaPasta_de_trabalho que iá resolver todo o seu problema sem dar nenhum erro.
Você também pode criar um botão na planilha e atribuir este código no evento Click que resolverá.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ThisWorkbook.Save
FileCopy M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PETMapa Gerencial.xls, M:PlanejamentoEstrategicoAno_2016BIMapa Gerencial PETBackupMapa_ Gerencial.xls
End Sub
Espero te sanado sua dúvida.
Att.;
Postado : 22/04/2016 7:19 am