Colour fill (Not Conditional Format)

[DoosanRuss]

Good Day Ladies and Gents

Please can you help with the following?

Requirements:
1) Needs to be VBA as I'm looking to utilise the SumColor UDF and obviously CF won't allow this UDF to work.

Note: Actual colours not important for basis of enquiry just use, Red, Blue, Green, i know how to change these

https://docs.google.com/leaf?id=0B9...N2IzY2Y3ZDg1MmNh&sort=name&layout=list&num=50

Hopefully the above link will take you to a .bmp of what i need

Failing that:

Currency List
A1 = USD
A2 = GBP
A3 = EUR
ColorIndex List
ColorIndex = 3
ColorIndex = 5
ColourIndex = 6
(note these currenicies have the potential to change, color index does not)

therefore if
B1 = 10 (manual entry)
&
B2 = USD (on a list data validation)

I want the VBA code to say somthing like:

MATCH [B2] with the "Currency List" and return the ColorIndex relative to it, then fill B1 with that Colour Index.

I know it has something to do with Worksheet Change Event and Activecell.Offset, I just cant work out the Code for the life of me.

Post back if that makes little or no sense

Thanks in advance

Russ