Snasui Excel Forum

Code: Select all

Dim rsAll As Range, rs As Range
Dim rtAll As Range, rt As Range
Dim found As Boolean
With Sheets("Data")
    Set rsAll = .Range("a1", .Range("a" & .Rows.Count).End(xlUp))
    Set rtAll = .Range("b1", .Range("b" & .Rows.Count).End(xlUp))
    For Each rt In rtAll
        found = False
        For Each rs In rsAll
            If InStr(rt, rs) > 0 Then
                found = True
                rt.Offset(0, 3).Value = "Y"
                Exit For
            End If
        Next rs
        If Not found Then
            rt.Offset(0, 3).Value = "N"
        End If
    Next rt
End With