VBA Conditonal Formatting

Hi All,

I'm trying to shade a selected range in this way:


if it's "R", color=red

if it's "O", color=orange

if it's "P", color=purple

if it contains "Y", color=yellow

if it contains "G", color=green

for example, if a cell is "G.1/31/2009", I would like it to be shaded in green.

Here is a code I'm trying to use, but I am new to VBA and has no idea how to search "Y" or "G" and shade them. Could anyone help me on this? Many thanks in advance.

Please Login or Register  to view this content.

Originally Posted by royUK

Where have you put the code?

in VB?..

I just right clicked the tab and clicked "view code" then copy the code. Is this the right way?

I just figured out I can certainly search "G" and "Y" by using "Format"-"Conditional Formatting" like this:

=ISNUMBER(SEARCH("G",AA4)) then make format color=green
=ISNUMBER(SEARCH("Y",AA4)) then make format color=yellow

But I still need to do the rest three colors by VBA. I'm wondering if there is anyway I can do ALL conditions in VBA? Thanks.