运行时错误1004无法打开pivottable源文件

Question

我是VBA和Macros的新人。在宏录制之后，我最终得到了这个错误。

文件名在桌面上可用，名称正确。

感谢您的帮助，

Sub Macro2435Pivot()
'
' Macro2435Pivot Macro
'

'
    Cells.Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "2435_Monthly Sales with Adjustm'!1:15000", Version:=xlPivotTableVersion15). _
        CreatePivotTable TableDestination:="Sheet2!R3C1", TableName:= _
        "PivotTable" & [=round(Rand()*1000,0)], DefaultVersion:=xlPivotTableVersion15
    Sheets("Sheet2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Month")
        .Orientation = xlPageField
        .Position = 1
    End With