I need a macro to highlight a column having a word which is another column's entry

Hi.

Try this code:

Sub HIGHLIGHTTEXT()
    Dim rcnt As Long
    
    rcnt = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 1 To rcnt
        If InStr(1, Range("A" & i), Range("B" & i)) > 0 Then
            Range("A" & i).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next
End Sub

Now check this code:

Sub HIGHLIGHTTEXT()
    Dim rcnt As Long
    
    rcnt = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 1 To rcnt
        If InStr(1, Range("A" & i), Range("B" & i)) > 0 And Range("B" & i) <> "" Then
            Range("A" & i).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    Next
End Sub

So if col B is empty then no highlighting. Is that what you want?

You are welcome.

Please click star below. Thanks..