Summing Cells with a BLUE font (or any other color)
I am trying to sum cells that have a specific color.
Here is what I have so far:
Function SumByColor(InRange As Range, WhatColorIndex As Integer)
Dim Rng As Range
Dim OK As Boolean
For Each Rng In InRange.Cells
OK = (Rng.Font.ColorIndex = WhatColorIndex)
If OK And IsNumeric(Rng.Value) Then
SumByColor = SumByColor + Rng.Value
****Thank you Chip****
When I attempt to use this, I get an error "#NAME?"
Any ideas on what is going wrong?