How to count number of red font cells or rows
Hi
the code below is one way of doing what your after.
Option Explicit
Dim MyCell, MyRng As Range
Dim i As Integer
Sub CountReds()
Set MyRng = Range("A4:A870")
For Each MyCell In MyRng
If MyCell.Font.ColorIndex = 3 Then
i = i + 1
End If
Next MyCell
Cells(873, 10) = i
End Sub
Hope this helps
Steve
|