How do I write a macro or if-then statement to examine the font colour in a
cell and then return a value dependant on the colour?