Pivot table conditional formatting using VBA

Hi, I am new to the forum and relatively inexperienced in VBA.

I need some enhancements to my code below which looks for a value of 999 in any cell and changes the fill color to green.

Not only do I need to change the fill color but I need to change the cell value of 999 into a text string e.g. "Unavailable"

I also need to repeat the conditional formatting for several cell values e.g.
Formula1:="888" would change the cell value to "Available"
Formula1:="777" would change the cell value to "Other"
Formula1:="666" would change the cell value to "Not known"

Please Login or Register  to view this content.

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

conditional formatting does not change the value of the cell only the formatting

to change the value you need to change the source data itself or add to the source data ie use a helper column

Please Login or Register  to view this content.

cant really loop unique number formats like yours
you can loop for same colorindex
i've illustrated the difference in the above code