I am trying to build a pivot table/chart in which the PageFields will only
list the remaining or available PageFieldItems after other choice
PageField--constraints--are applied.
This code works for one page field
************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$2" Then
Sheets("Pivot").PivotTables("PivotTable1") _
.PivotFields("Year").CurrentPage = Target.Value
End If
End Sub

************
but not for multiple page fields. Is there an answer ?