Cell-Color searching function

jrodri14
maybe..in a kinda roundabout fashion

Function FindColour(FindRange As Variant) As String
  For e = 1 To FindRange.Cells.Count
   If FindRange.Cells(e, 1).Characters(Start:=1, Length:=1).Font.ColorIndex = 3 Then
   FindColour = FindRange.Cells(e, 1).Address
   End If
   Next
End Function

Originally Posted by pike

jrodri14
maybe..in a kinda roundabout fashion

Function FindColour(FindRange As Variant) As String
  For e = 1 To FindRange.Cells.Count
   If FindRange.Cells(e, 1).Characters(Start:=1, Length:=1).Font.ColorIndex = 3 Then
   FindColour = FindRange.Cells(e, 1).Address
   End If
   Next
End Function

I think he wants cell color, not font color.
If so change to

If FindRange.Cells(e, 1).Interior.ColorIndex = 3 Then