ExportAsFixedFormat PDF остановил работу Office 365

Я обычный пользователь. Обычно я собираю свой код VBA из результатов поиска в Google и советов по stackoverflow. У меня была рабочая тетрадь с использованием "ExportAsFixedFormat Type:=xlTypePDF". У меня было 4 строки кода, которые сохраняли различные страницы рабочего листа в PDF-файлы на моем локальном жестком диске. Поскольку у меня новый компьютер (и, возможно, с тех пор, как я обновился до Office 365), мой макрос возвращал эту ошибку:

Runtime Error '-2147417848 (80010108)':

Automation Error

The object invoked has disconnected from its clients.

Вот код, который у меня есть сейчас ...

Sub Savepdf()

Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename: = "C:\Users\directoryhere\pc2018summer.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=10
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename: = "C:\Users\directoryhere\pc2018fall.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=11, To:=25
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename: = "C:\Users\directoryhere\pc2018winter.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=28, To:=42
Worksheets("Weekly").ExportAsFixedFormat Type:=xlTypePDF, Filename: = "C:\Users\directoryhere\pc2018.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False

End Sub