set pivotitems visible

hey all

i have a question concerning a pivottable. I wrote a makro to set the pivotitems visible. the problem is that i get an error if i try to set the very last item visible.

Please Login or Register  to view this content.

for example the values in the field NUM are from 1 to 100 and i want to set the items B6=90 to B7=100 visible. If the loop get's to the very last item(100) there is an error! (i have another loop to set the other items invisible, which works).

The strange thing is that error only occurs with the very last item, if i set for example 50 to 90 visible there's no problem!

can anybody help me?

thx

thx i solved it on my own!!