Quote Originally Posted by jindon 
Function wfind(r As Range, rng As Range) As String

Dim c As Range, txt1, txt2, flag As Boolean
        txt1 = Split(r, " "): flag = False
        For Each c In rng
            txt2 = Split(c, " ")
                For i = LBound(txt1) To UBound(txt1)
                    If Trim(txt1(i)) Like Trim(txt2(i)) & "*" Then
                        flag = True
                    Else
                        flag = False
                    End If
                Next
            If flag = True Then
                wfind = r & " Found": Exit Function
            End If
        Next
        wfind = r & " not found"
        
End Function
I've been banging around with this code and the idea behind it for the day. It will simply return "txt1 Found", regardless of whether txt2 is present or not.

Any other ideas? ♦¿♦