sum only red fonts

[Borut]

I have macro to merge 4 number for 1 worker. I have 82 workers in the worksheet.
So, 1 worker have 4 diferent numbers.
For this 4 numbers ( in 4 columns), 2 numbers are red (1 to all 4)

1. I sum all numbers with sum function- is ok
2. How I sum only red numbers font color vbred? for all 82 workers(2 rows)?

[p45cal]

User defined function:
Function SumRed(rangeToSum)
For Each cll In rangeToSum.Cells
If cll.Font.Color = vbRed Then SR = SR + cll.Value
Next cll
SumRed = SR
End Function
Use on sheet:
=SumRed(E5:G10)

[Borut]

I copy to modul.
on sheet copy formula, but give me false name.
why?

[p45cal]

Works here:
27503

[SamT]

Conditional Formatting in use?

[Borut]

found and repair my mistake