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.