Central styring af flere pivottabeller

Det vil være oplagt at løse det med VBA. Ved hjælp af koden:
ActiveSheet.PivotTables("Pivottabel1").PivotFields("Land").CurrentPage = "Danmark"
Kan du f.eks. ændre værdien af Land.
Hvis du laver en combobox, som indeholder navnene på de lande, som skal kunne vises, så kan denne combobox styre lige så mange pivot tabeller, som du ønsker.
I kode eksemplet er det pivtotabel1 på den aktive side der ændres, der kan så tilføjes yderliger kodelinier, som refererer til de øvrige pivottabeller.

Hej Fobian,
Mere simpelt kan det ikke gøres - og det virker. Tak for hjælpen.