Sub test()
i = 1
Do While (Sheets("sheet1").Cells(i, 1) <> "")
If Sheets("sheet1").Cells(i, 2) = Sheets("sheet1").Cells(i, 1) Then
Sheets("sheet1").Cells(i, 2).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor =...