VBA If Then Else on a Range

[nitrammada]

Hi Everyone,
I'm looking for code that does the following and would appreciate any help you may have.
My table has 24 rows of data, column A I have 6 heading types, H1 through to H6.
Each row has its own heading type.
I'm looking for code that will search column A, when it finds the particular heading type, do the following:

H1 - leave the font colour black
H5 - change the font colour to red
H3 - change the font colour to pink
H4 - change the font colour to cyan
H5 - change the font colour to green
H6 - leave the font colour black

Below is a snap shot of my data set. I have set this up as a sample to explain what I'm after.

If I can find code that works I will apply to my actual database that 1000's of rows.
But for now if I can understand how the code works it would be a great help.
Any assistance would be greatly appreciated.
Thanks in advance.

 

[aRandomHelper]

Can be achieved with conditional formatting:

a.xlsx
	A	B	C	D	E	F
4	H1	a	b	c	d	e
5	H2	a	b	c	d	e
6	H3	a	b	c	d	e
7	H4	a	b	c	d	e
8	H5	a	b	c	d	e
9	H6	a	b	c	d	e
10	H1	a	b	c	d	e
11	H2	a	b	c	d	e
12	H3	a	b	c	d	e
13	H4	a	b	c	d	e
14	H5	a	b	c	d	e
15	H6	a	b	c	d	e
Sheet1

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
A4:F15	Expression	=$A4="H6"	text	NO
A4:F15	Expression	=$A4="H5"	text	NO
A4:F15	Expression	=$A4="H4"	text	NO
A4:F15	Expression	=$A4="H3"	text	NO
A4:F15	Expression	=$A4="H2"	text	NO
A4:F15	Expression	=$A4="H1"	text	NO

Just make sure you enter the formula correctly.

 

[nitrammada]

Hello aRH, thanks so much for responding. I have already used conditional formatting as you mentioned, and it works ok, however, i'm using a pivot table to manipulate my data and when I expand / collapse based on heading type the formatting goes all over the show, hence I thought VBA would be better. Any suggestions?