Problemer med pivot som skal opdateres på baggrund af listopslag

Til brug for en rapportmodel, gør jeg brug af to pivottabeller hvori jeg skal kan imellem datoer, produkter m.v.

Min rapport skal kunne vise afvigelsen mellem forvalgt dato fra Pivot1 og en sammenligningsdato i Pivot2. Tilsvarende skal det være muligt at foretage "drill down" i begge pivottabeller samtidigt, således at bruger eksempelvis kan se afvigelsen for et givent produkt på det to valgte datoer.

For at kunne aktiverer/skifte view i begge pivot dunamisk, har jeg valgt at benytte mig af en makro som via listboxe i min rapport "føder" de to pivottabeller.

Dette går også tilfredsstillende, men jeg har en anelse problemer med at styre datoformatet.

Son udgangspunkt er dataformat dd-mm-åååå. Mit listeopslag ( Range("K2").value er ligeledes i samme format, men min kode :

ActiveSheet.PivotTables("PivotTable1").PivotFields("RegDate").CurrentPage = Range("K2").Value 

returnerer i dette format :

m/d/yyyy

hvilket giver en anelse udfordringer.

Nogen ideer til hvordan jeg kan omgå dette ????