Мой макрос Excel аварийно завершает работу Excel, когда я открываю файл Excel по ссылке PowerPoint, но если я открываю только файл Excel, он работает нормально?

Question

У меня есть Sliedewhow с некоторыми ссылками на файлы Excel, один из этих файлов в качестве макроса для сохранения в PDF с датой в качестве имени файла. Если я запускаю макрос только с открытым файлом Excel, он работает нормально, но если я использовал ссылку слайд-шоу, чтобы открыть тот же файл Excel (даже если я закрываю слайд-шоу после открытия Excel), он вылетает. Любая помощь здесь? Я пытался включить закрытие powerpoint в макросе, но он все еще падает.

Код пока:

Sub BACKUP()
'
' BACKUP Macro
'

'
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "http://sonaecircle-stores/pt/center/coimbra/eirasoutlet/wrt/Documents/Pedro2/IOW/MENU%20IOW/01%20-%20PTE/00%20-%20FORMULÁRIO/00%20-%20ARQUIVO/PTE%20FORMULÁRIO " & Format(Now(), "DDMMMYYYY") & ".PDF" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, From:=1, To:=4, OpenAfterPublish:=False
    Sheets(1).Select
    Range("C8:AD49").Select
    Selection.ClearContents
    Sheets(2).Select
    Range("C8:AD49").Select
    Selection.ClearContents
    Sheets(3).Select
    Range("C8:AD49").Select
    Selection.ClearContents
    Sheets(4).Select
    Range("C8:AD49").Select
    Selection.ClearContents
    Sheets(1).Select
    Sheets(1).Name = "SEMANA 1"
    Sheets(2).Select
    Sheets(2).Name = "SEMANA 2"
    Sheets(3).Select
    Sheets(3).Name = "SEMANA 3"
    Sheets(4).Select
    Sheets(4).Name = "SEMANA 4"
    Range("D25").Select
End Sub

Я пытался использовать другой макрос, чтобы закрыть слайд-шоу, но все равно вылетает.

Sub ForcePowerpointExit()

Dim BruteForce As String
BruteForce = "TASKKILL /F /IM powerpnt.exe"
Shell BruteForce, vbHide
End Sub