VBA to Refresh Pivot Table and Chart

[findingcindy]

Good morning! I have the code below that changes the value on my pivot table on another sheet but it does not refresh the pivot table, therefore my pivot chart doesn't refresh. Any help would be greatly appreciated.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim PT As PivotTable
Dim Field As PivotField
Dim NewCat As String

Set PT = Worksheets("Chart").PivotTables("PivotTable6")
Set Field = PT.PivotFields("Filter")
NewCat = Worksheets("Scorecard").Range("b4").Value
ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh


End Sub

 

[AlphaFrog]

I don't see in the code where any cell value is changed.

Also, It sounds like the pivot table is not on the Active sheet; Is that correct?

Try changing this...

ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh

To this...

PT.PivotCache.Refresh

 

[findingcindy]

I don't see in the code where any cell value is changed.

Also, It sounds like the pivot table is not on the Active sheet; Is that correct?

Try changing this...

ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh

To this...

PT.PivotCache.Refresh

Thank you so much. I did need to adjust the PT and changed the active sheet part to your suggestion. Thanks!