Pivot page field

[darkblue]

My pivot page field resides on B1.
I'd like to put a validation list on cell C1 or D1 and use that cell
instead of pivot page button.
I just don't like the pivot combo list.
Is it possible at all to sync ?

 

[darkblue]

Found it !

Sub Tester10()
With ActiveSheet.PivotTables("PivotTable1")
Debug.Print .PageFields(1).CurrentPage
.PageFields(1).CurrentPage = ActiveSheet.Range("c1").Value
Debug.Print .PageFields(1).CurrentPage
End With
End Sub


Thanks Tom.