Sheets("Table1-value").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("CUSTOMER NAME"). _ CurrentPage = "ACC"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("CUSTOMER NAME") .PivotItems("ACC.").Visible = True .PivotItems("XYZ.").Visible = False
sValue = Target.Value
sValue = Range("a4").Value
For Each vItem In Sheets(sSheetName).PivotTables(sPivotTableName).PivotFields(sFieldName).PivotItems vItem.Visible = (vItem = sValue)
DON'T MISS
on your main filter sheet ( in sample that would be "RUN") add this code
add a new module and add this code