controlling the VBA PivotFileds dynamically

[rbakhtiar]

Hi:

VB expertize = Novice

In the code below (which has been generated by recording), I am trying to get the PivotFileds to change dynamically (linked to another cell). But the code seems to accept only the hard "EU". If i can link to a cell (say 19, 4) then life would become almost bearable.

best regards
rana


.....................................................................
Range("U22").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Country1").CurrentPage = _
"EU"

 

[rbakhtiar]

Got it (from an old post)

...................................................
CurrentPage = _
ActiveSheet.Range("D19").Value