Autorefresh pivot table on cell change

[ardykav]

I have a pivot table (Pivottable2) which I want to refresh any time the value in cell B3 is changed. I have used the code below but appears that I am doing something wrong.

The name of the macro to refresh the pivot table is "refresht"

Any help greatly appreciated

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then refresht
End Sub

 

[ardykav]

All good I have found a solution to the issue.

Private Sub Worksheet_Change(ByVal Target As Range)
' Code goes in the Worksheet specific module
Dim rng As Range
' Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")
Set rng = Target.Parent.Range("B3")
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh

End Sub