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