For Each loop for data labels in a pivot table

[Phixer]

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.

[romperstomper]

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

[Phixer]

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.

[Phixer]

Ok, I have resolved the issue.

The problem was, later in the code, the .numberformat was somehow changing it from white back to black (even though the color was unspecified in the .numberformat).

Once I changed the formatting range on the .numberformat to not include the pivot table labels it stays white.