VBA to Edit Multiple PivotTables Fields at Once on same worksheet

[WWII_Buff]

Hello all!

I am new to VBA I am trying to update multiple pivot tables on sheet "data", based on drop down list on sheet "Flash" to update graphs on sheet "Flash" as well.
I found the code to update a single pivot table but editing it to do several gives me an error at [FONT=&quot]pt.RefreshTable.
[/FONT]
Thanks!

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
'This line stops the worksheet updating on every change, it only updates when cell
'B4 is touched
If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
 
'Set the Variables to be used
Dim pt As PivotTable
Dim ws As Worksheet
Dim Field As PivotField
Dim NewCat As String
 
'Here you amend to suit your data
Set ws = Worksheets("data")
    For Each pt In ws.PivotTables
Set Field = pt.PivotFields("Owner")
Next pt
NewCat = Worksheets("Flash").Range("B4").Value
 
'This updates and refreshes the PIVOT table
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
:warning:[FONT=arial black]pt.RefreshTable[/FONT]:warning:


End With
 
End Sub

 

[WWII_Buff]

This works for only "PivotTable3".
How can I add multiple PivotTables to the macro that reside on the same worksheet?

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
'This line stops the worksheet updating on every change, it only updates when cell
'B4 is touched
If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub
 
'Set the Variables to be used
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
 
'Here you amend to suit your data
Set pt = Worksheets("data").PivotTables("PivotTable3")
Set Field = pt.PivotFields("Owner")
NewCat = Worksheets("Flash").Range("B4").Value
 
'This updates and refreshes the PIVOT table
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
 
End Sub

 

[WWII_Buff]

Bump

 

[WWII_Buff]

Sorry - I guess I didn't look hard enough!
Jerry "Mc Macro Wiz" Sullivan solved it here! I added a link to help redirect folks!

https://www.mrexcel.com/forum/excel...pivot-table-report-filter-another-cell-2.html