Start and end:
Code:
Copy:
Sub colordifferently()
Dim i As LongDim dual As Longdual = 0
For i = 2 To 23 If dual Mod 2 = 0 Then If Cells(i, 2).Value = Cells(i + 1, 2).Value Then Rows(i).EntireRow.Interior.Color = 5296274 Else Rows(i).EntireRow.Interior.Color = 5296274 dual = dual + 1 GoTo…