PLPE

added 3rd argument to determine number of words to be compared.
e.g.
=wfind(b1,a$1:a$10,3)
will compare first 3 words
Function wfind(r As Range, rng As Range, Optional cap As Integer) As String

Dim c As Range, txt1, txt2, flag As Boolean, i As Integer
        txt1 = Split(r, " "): flag = False
        If IsMissing(cap) Then
            cap = UBound(txt1)
        Else
            cap = cap - 1
        End If
        For Each c In rng
            txt2 = Split(c, " ")
                For i = LBound(txt1) To cap
                    If Trim(txt1(i)) Like Trim(txt2(i)) & "*" Then
                        flag = True
                    Else
                        flag = False: Exit For
                    End If
                    If i = UBound(txt2) Then Exit For
                Next
            If flag = True Then
                wfind = r & " Found": Exit Function
            End If
        Next

        wfind = r & " not found"
        
End Function
Quote Originally Posted by PLPE
Column A & B do not match exactly, but are pretty close.
Originally, both columns had '_' & '@' included, but I added macros to getr rid of these - easier to do comparisons (methinks!).

Here are some of my entries;

[Col A];
RD INP LKG 0V
RD INP LKG 5V25

[Col B];
RD INP LKG 5V25 nA
CS INP LKG 5V25 nA

[Col C];
RD INP LKG 5V25 - Found
CS INP LKG 5V25 nA - Not Found


{I think Jindon has me on the right track, but it's still not working for me!}