Cell font color function

[Mr2017]

Hi

I'd like to create a function which returns the number 1 if the TEXT of a cell in the preceding column is red.

Is it possible to do this with VBA?

I was thinking of writing something along these lines, but would appreciate any pointers!

Thanks in advance.

Function FontDetect()

          if activecell.font.color  = vbRed then 

          activecell.offset(0,1).value = 1

          else 

          end if
 
End Function

 

[Marcelo Branco]

Maybe something like this

Sub Main()
    Dim myRange As Range
    
    Set myRange = Range("A2:A10")
    FontDetect myRange
End Sub

Sub FontDetect(r As Range)
    Dim rCell As Range

    For Each rCell In r
        If rCell.Font.Color = vbRed Then rCell.Offset(0, 1) = 1
    Next rCell
End Sub

M.