Почему я получаю ошибку времени выполнения при печати в PDF?

Question

Я использую код для сохранения рабочих листов в PDF. Это работало без проблем, и теперь я получаю run time error 1004. Любая помощь с нижеуказанным будет оценена.

Sub ExportAsPDF()
  ThisWorkbook.Sheets(
    Array(
      "Communication Services",
      "Consumer Discretionary",
      "Consumer Staples",
      "Financials",
      "Health care",
      "Industrials",
      "Information Technology",
      "Materials",
      "Real Estate",
      "Utilities"
    )
  ).Select

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "S:\Shared Folders\Impact Investing\Investment\" & Format(Now(), "DD-MMM-YYYY"),
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True

  Worksheets("Communication Services").Select

End Sub