I,m not sure what you mean by return a value dependant on font colour but
determining the colour is easy enough. The code below returns the colourindex
number of the active cell.

Sub FontColor()
MsgBox "The Font Color Index is " & ActiveCell.Font.ColorIndex
End Sub

Mike

"sgdav" wrote:

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?