Nic
I have run inot issues like this before it could be that the Cache is still
full
Hit the VBA help button and have a look at
MissingItemsLimit Property XlPivotTableMissingItems.
XlPivotTableMissingItems can be one of these XlPivotTableMissingItems
constants.
xlMissingItemsDefault The default number of unique items per
PivotField allowed.
xlMissingItemsMax The maximum number of unique items per PivotField
allowed (32,500).
xlMissingItemsNone No unique items per PivotField allowed (zero).

You should ensure that Missing items NONE is used

I hope this helps but it could be something else

"Nicodemus" wrote in message
...
Hello all,
In VBA, I try to count the items left after filtering a PivotTable, but I
can't get it working !
Here is what I do :
a) to filter :
ActiveSheet.PivotTables("myPT").PivotFields("GENDE R").CurrentPage = "MALE"

b) to count :
MFDATE_Cnt =
ActiveSheet.PivotTables("myPT").PivotFields("GENDE R").PivotItems.Count

The counting should differ after selecting "MALE" or "FEMALE", but still
gives me the same value, which is actually the total of both genders.

Can someone help me on this ?
Thx in advance,
Nicodemus