For Each loop for data labels in a pivot table

Please Login or Register  to view this content.

This is the present manner that I am having to cycle through all the entries in my pivot table. Unfortunately, planning ahead, I forsee that there will be more entries than just Alpha, Beta, Gamma, and Delta, and those may potentially be absent.

Thus, I am trying to find out if there is some way to cycle through ALL entries with a For...Each loop to cycle through all pivot labels, regardless if they were listed before.

Any help would be appreciated, including a manner in which I can re-write the code above to remove the "Selection" part, because that's just being annoying with screen flashes.

I haven't tested the formatting you're applying, but could you not create a pivot table style?

That is not what I was asking. Applying the formatting is easily done.

I need to know how to cycle through all the pivot labels to apply formatting (any formatting) to each.

...

Or are you saying that if I create a pivot table style it will automatically apply the formatting to the labels for me? I was unaware if that is the case. I will experiment.

EDIT:
I can get the first two sets of labels to color properly, but the third seems to be locked so I can't change the text color. I can change the background color, but the font needs to be white due to the dark background. That part of the code doesn't seem to do anything, regardless if I do it manually or attempt to do it through VBA.

Please Login or Register  to view this content.