For number 2 & 3, below is a function I wrote a while back. The
syntax is =Color(A1). This will tell you the number value of the
color. Excel00 has 56 colors and I think -4142 is empty or white, I
can't remember.


Function Color(arg1)
'Created by BJeffery
'12/14/04

Color = arg1.Interior.ColorIndex
End Function