Extracting font color within a range

[Guest]

I have a range (I'm calling it r) that refers to a cell. I've found that
the cell has multiple colorindeces. How do I extract the characters where
the color index is RED only.

Thanks,
Barb Reinhardt

 

[Guest]

This should work:

For Each Character in Range(r).Characters
If Font.ColorIndex = 3 Then
'Do Something
End If
Next

 

[Guest]

Of course, if the r already = Range("?") then it would be r.Characters.

 

[Tim]

As a function:

Function GetRed(rng As Range) As String
Dim r As String, i As Long

r = ""
For i = 1 To Len(rng.Value)
If rng.Characters(i, 1).Font.ColorIndex = 3 Then
r = r & rng.Characters(i, 1).Text
End If
Next i
GetRed = r
End Function

Tim