Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pt As PivotTable
If Not Intersect(Target(1, 1), Range("Branchcode")) Is Nothing Then
Set pt = Sheet9.PivotTables(1)
pt.RefreshTable
With pt
.RefreshTable
.PivotFields("Office
Leave a comment: