Этот код выполняется в течение 3 секунд без ошибок. но я не получаю результатов. у меня должно быть более 1000 штук с красным цветом шрифта.
Sub Count_Flanges()
Application.ScreenUpdating = False
Dim Rng As Range
Dim lColorCounter As Long
Dim rngCell As Range
Set Rng = Sheets("master line list").Range("C2:Z1633")
lColorCounter = 0
For Each rngCell In Rng
If Cells(rngCell.Row, rngCell.Column).DisplayFormat.Font.Color = RGB(255, 0, 0) Then
lColorCounter = lColorCounter + 1
End If
Next
Sheets("status").Range("D3") = lColorCounter
Sheets("status").Range("A1") = lColorCounter / 2 & " " & "Total Duplicates"
Sheets("status").Range("A2") = Sheets("status").Range("D5").Value - lColorCounter / 2 & " " & "Flanges"
Application.ScreenUpdating = True
End Sub