Hi ADTC,
You could try this code
![]()
Sub Foo() If Range("A1").Value = Range("B1").Value Then With Rows("1:1").Interior .ColorIndex = 33 .Pattern = xlSolid End With Else End If If Range("C1").Value = Range("D1").Value Then With Rows("1:1").Interior .ColorIndex = 3 .Pattern = xlSolid End With Else End If If Range("A1").Value = Range("B1").Value And Range("C1").Value = Range("D1").Value Then Rows("1:1").Delete End If End Sub
Bookmarks