从共享驱动器运行宏时，运行时错误5

Question

以下代码可从我的桌面或其他文件夹路径完美运行。除了在共享驱动器中一直给我运行时错误5

错误出现在下一行

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Cell & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

完整代码

Private Sub CommandButton1_Click()

Dim ReportSheet As Worksheet 

If ThisWorkbook.Worksheets("Cover Page").Range("F11").Value <> vbNullString Then
FormatDate = Format(Sheets("Cover Page").Range("F11"), "MMMM DD, YYYY")

End If

Cell = "Statements - " & FormatDate

ThisWorkbook.Sheets(Array("Sheet1", " Sheet2", " Sheet3”).Select 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Cell & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

Application.Goto Reference:=Sheets("X").Range("A1")

End Sub