更改数据透视表源时出现无效的过程错误？

Question

我正在尝试设置一个公式，为现有的数据透视表选择新的来源。由于某种原因，我收到无效的过程错误。有什么问题的建议吗？

Set Data_Sheet = ActiveWorkbook.Worksheets("QueryResults")
Set Pivot_Sheet = ActiveWorkbook.Worksheets("Summary")
PivotName = "PivotTable1"
NewRange = Sheets("QueryResults").Range("$A$1:$AY$200")

ActiveWorkbook.Worksheets("Summary").PivotTables(PivotName). _
ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)