I am trying to update the source data for two pivot tables on the same worksheet. I am getting an invalid procedure call error. the code I am attempting use is below.
Dim pt As PivotTable
Dim SalesData As Range, lRow As Long
lRow = Worksheets("Sales Data").Range("A1000000").End(xlUp).row
'Worksheets("Sales Data").Range("A1:N" & lRow).Name = "SalesData"
Set SalesData = Range("SalesData")
For Each pt In Worksheets("Assistance").PivotTables
pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=SalesData)
Next pt