Calculate number of red values

[mubashar]

any function or statement through which i can calculate total number of values written in red .

[zbor]

Use this UDF:

Function SumByColor(CellColor As Range, SumRange As Range)
Dim myCell As Range
Dim iCol As Integer
Dim myTotal As Long
iCol = CellColor.Font.ColorIndex ' get the target color
For Each myCell In SumRange ' lok at each cell in the designated range
    'if the cell color matches the target color
    If myCell.Font.ColorIndex = iCol Then
            ' add the value in the cell to the total
        'If myCell >= iCol Then
        myTotal = WorksheetFunction.Sum(myCell) + myTotal
    'End If
    End If
Next myCell
SumByColor = myTotal
End Function

And in cell type:

=SumByColor(C3, $C$1:$C$9)

Where C3 is example of cell you want to sum like (for example with red font, or with black font)
and C1:C9 is a range to SUM

[mubashar]

Thanks for reply.... When i open the workbook it gives #NAME error ...... will you please solve it .