In case I got it right you need to find all matches that contains letters.
Try this one.
Sub Button1_Click()
Dim wrdCount As Long
Dim arr
Dim i, j As Long
wrdCount = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
arr = Range("B1:B" & wrdCount)
j = 2
For i = 1 To wrdCount
If InStr(1, arr(i, 1), Range("F2").Text, vbTextCompare) > 0 And InStr(1, arr(i, 1), Range("G2").Text, vbTextCompare) > 0 And InStr(1, arr(i, 1), Range("H2").Text, vbTextCompare) > 0 And InStr(1, arr(i, 1), Range("I2").Text, vbTextCompare) > 0 Then
Range("K" & j).Value = arr(i, 1)
j = j + 1
End If
Next
End Sub
Bookmarks