in a macro?

if the fill color is the actuall background color and not produced by
conditional formatting

select Case Range("A1").Interior.ColorIndex
case xlNone
c = 6
case 3
c = 12
case 5
c=21
End Select
Range("B9").Value = c


--
Regards,
Tom Ogilvy

"banderson" wrote in message
...
I am looking to set a numerical value of one cell based on the fill color
of
another cell. Thanks