Hi,

Here is some code which should do what you want:

Function CountFormats(R As Range, E As Range) As Integer
Dim cell As Range
Dim Total As Integer
Dim T As Boolean
Set S = E.Cells(1, 1)
Total = 0
For Each cell In R
T = True
With cell
If .Font.ColorIndex < S.Font.ColorIndex Then T = False
End With
If T = True Then
Total = Total + 1
End If
Next cell
CountFormats = Total
End Function

Here is how you use it enter
=CountFormats(A1:F13,D5)
In a cell. A1:F13 indicates the range you want to check, cell D5 or any
cell that is formatted with the font color you want to count.

This way you don't need to guess what the number of the font color is, you
just specify a cell that has that font color and the function does the rest.

If this helps, please click the Yes button.
--
Thanks,
Shane Devenshire


"bd" wrote:

Thank you Ashish. I'll use this solution if the custom VBA solution doesn't
come through.

"Ashish Mathur" wrote:

Hi,

This is not a perfect solution in that you cannot get a result in a cell.
However, you can use the following trick to read the result in the lower
right corner of Excel:

1. Press Ctrl+F;
2. Click on Options and in the down arrow on the format button, select
Choose format from cell
3. Now select the cell which has the white colour
4. Click on Find All and then do Ctrl+A;
5. when you click on Close, you will notice that all white numbers will be
highlighted;
6. You will be able to see the sum in the lower right corner. if you see
any other function there such as Average, please right click there and
select Sum

Hope this helps

--
Regards,

Ashish Mathur
Microsoft Excel MVP
www.ashishmathur.com

"bd" wrote in message
...
I have a sheet with some numbers in white and some in black. I can use
the
"find" function to isolate and find the white numbers and then manually
add
all of them up separately. How could I directly write a formula in a cell
to
sum up all the white numbers?