How to count up text of a different font colour in excel

Question

I have a list of names that has been exported from another database into excel. The names in the list that are of interest are highlighted in red font. I would like a way to

Answer 1

For Each cell In Range("A1:A100")
    If cell.Font.Color = 255 And cell.Value = "John Smith" Then
        myCount = myCount + 1
    End If
Next