Looping CountColour

Question

Ниже приведен простой код.Я думаю, что у меня есть проблемы со ссылками и циклом внутри цикла.

Я бы хотел посчитать количество зеленых клеток в ряду, а затем перейти к следующему ряду.Я получаю сообщение об ошибке:

If RowRange.DisplayFormat.Interior.colour = SourceColour.DisplayFormat.Interior.colour Then

Ошибка времени выполнения 91 - объект не задан ....

Есть идеи?

Полный код:

Sub countcolourloop1()

Dim rng As Range
Dim RowRange As Range
Dim SourceColour As Range
Dim xBackColour As Integer

'count green cells
Set SourceColour = ActiveWorkbook.ActiveSheet.Range("BN2:BN2")

    'cyle through each row, add 1 to the counter xBackColour every time you find a cell in the range matching the SourceColour
    For I = 4 To 300
        Set RowRange = ActiveWorkbook.ActiveSheet.Range("B" & I & ":BK" & I)
        If RowRange.DisplayFormat.Interior.colour = SourceColour.DisplayFormat.Interior.colour Then
        xBackColour = xBackColour + 1
        End If
    Next

End Sub