Simple macro for repeating rows

[gman70403]

Hi,
I need a simple macro that if cell c1=cell c2 then highlight each row the color yellow.
repeat each row to the end of the rows
Any help would be appreciaed

 

[VoG]

You could do this with Conditional Formatting but in code

Sub atest()
Dim LR As Long, i As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    With Range("C" & i)
        If .Value = .Offset(-1).Value Then .Offset(-1).Resize(2).EntireRow.Interior.ColorIndex = 6
    End With
Next i
End Sub

 

[gman70403]

Thanks..i forgot all about conditoning format