need a U.D.F to sum up cells highlighted Red

Hi

I have a cell range C4:W40 which has values.Cells highlighted RED i need a User defined Function to sum up all values in RED cells.

I am very limited in VBA but appreciate a code if possible

Thanks

If the cells are highlighted red as part of conditional formatting, it can be very challenging. If you are the one that applied the color for each individual cell then this should work:

Function CountReds(myRange As Range)
Dim rCell As Range
Dim Count As Long

Count = 0

For Each rCell In myRange
    If rCell.Interior.ColorIndex = 3 Then 'red
        Count = Count + rCell.Value
    End If
Next rCell

CountReds = Count

End Function

In a cell put "=CountReds(C4:W40)"

this is the function (add it to a Module)

Function SumIfRed(rRange As Range)
Dim cell

SumIfRed = 0
For Each cell In rRange
    If cell.Interior.ColorIndex = 3 Then SumIfRed = SumIfRed + cell.Value
Next

End Function

then, in a cell, type =SumIfRed(here select the range of cells) then press enter