Hi
use this formula the following way:
=Color(A1:A100,color_index)
where A1:A100 is your given range and color_index the color to count
(red should be 3)

Frank

i wish to count the number of cells (in a given range) that contain
txt that is the colour red. so far i have been given this code to
place in a standard module:

Function Color(rngField As Object, intColor As Integer)
Dim intCounter As Integer
Dim rngAct As Range
For Each rngAct In rngField
If rngAct.Interior.ColorIndex = intColor Then
intCounter = intCounter + 1
End If
Next rngAct
Color = intCounter
End Function

but I am now unable to progress any further. Do I have to use the
=countif command? if so wot would formular be? Do I have to call upon
this function in an excel cell?

thanks for any help :)


---
Message posted from http://www.ExcelForum.com/