VBA loop to stop based on cell color

[Broccoli]

Hi there

I have the below code to hide rows in spreadsheet. At the moment the loop stops when the cell is empty.
However, is there a way to amend the code to stop the loop when the cell color is green?

Sub HideRows()

Range("A3").Select
Do
If ActiveCell = "WRONG" Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell)

End Sub

 

[Legacy 68668]

try

Sub HideRows()
Dim i As Long
i = 3
Do While Cells(i, 3).Interior.Color <> vbGreen
    Rows(i).Hidden = (Cells(i, 3).Value = "WRONG")
    i = i + 1
    If i > Rows.Count Then Exit Do
Loop
End Sub