Microsoft Office Excel parou de funcionar

[Antonio Lanis]

Tento usar a macro abaixo que sempre que acionado um botão fechar deveria fazer uma cópia de backup, salvar, fechar a pasta ativa etc., conforme está na macro, porém, sempre que este botão é acionado o excel para de funcionar. Qual o problema? Esta nesta macro? Alguém pode de me ajudar?

Public Sub CriarBackup()
On Error GoTo Erro
'Altere a constante abaixo para que ela aponte
'para o seu arquivo de backup
Const SILMARA_BACKUP As String = "D:\Mundo_Imaginação\Sistemas\BackUPS\SILMARA_BACKUP.xlsm"
If (Dir(SILMARA_BACKUP) <> "") Then
Kill SILMARA_BACKUP
End If
ThisWorkbook.SaveCopyAs Filename:=SILMARA_BACKUP
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayFullScreen = False
Application.Quit

Fim:

Exit Sub
Erro:
MsgBox "Erro ao criar backup:" & vbCrLf & _
Err.Description, vbOKOnly + vbCritical, "Atenção"
Err.Clear
Resume Fim

End Sub

 

Notei na depuração que retirando "ActiveWorkbook.Close" não travou. Pra mim o ideal é que eu fechasse a pasta ativa sem fechar o excel, que pode estar com outra pasta aberta simultaneamente e que eu ainda desejaria continuar usando.
Alguma ideia?

 

[Matheus28]

Para evitar dores de cabeça...compra um pacote microsoft office...além de ser original, ele evita qualquer problema mais sério que você tenha.