ActiveSheet Refresh

[happyhungarian]

Hi, I think this is a simple question but I can't figure it out. I'm using this code to refresh a pivot if data on a worksheet is changed but it's refreshing all pivots rather than just the pivots on the active worksheet. Where I'm running into issues is that I dont want to have to specify the name of the sheet in the code. I want to use an ActiveSheet type of logic.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


ThisWorkbook.RefreshAll



End Sub

 

[DanteAmor]

Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim td As PivotTable
    For Each td In ActiveSheet.PivotTables
        td.PivotCache.Refresh
    Next
End Sub

 

[happyhungarian]

Perfect! Thanks!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.