conditional formatting and VBA

[oswalda]

I need a vba script that will highlight the cells in column B that do not equal the value in the same row in column A as illustrated below

Made several attempts, can't get it to work

 

[SunnyAlv]

Like this ?

Sub Macro1()


    Dim rng As Range
    
    For Each rng In Range("A1:A5")
    
        If rng.Value <> rng.Offset(, 1).Value Then
            rng.Offset(, 1).Interior.Color = vbYellow
        End If
        
    Next

End Sub

 

[oswalda]

In this line: rng.Offset(, 1).Interior.Color = vbYellow I took out "Offset(,1). and it worked for that pair of columns perfectly thanks for that.

I used the same script for another pair and got a "type mismatch error" The second pair compares names instead of dates.