I have not yet looked at your attachments.
In the meantime you can check if you can use this.
Sixthsense's solution
A1 has the sentence (=String).
Column F (= Column 6) has the words your checking against the array.
![]()
Sub AAAAA() Dim a, i As Long a = Split([A1], " ") For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row If IsNumeric(Application.Match(Cells(i, 6).Value, a, 0)) Then MsgBox Cells(i, 6).Value & " exist in the array." Next End Sub
Bookmarks