Function ouTxt(libel As Range, crit As Range)
Dim data1, data2, result() As Boolean
Dim i As Long, j As Long
data1 = libel.Value: data2 = crit.Value
ReDim result(1 To UBound(data1), 1 To 1)
For i = 1 To UBound(data1)
For j = 1 To UBound(data1)
If data1(i, 1) Like "*" & data2(j, 1) & "*" Then result(i, 1) = True: Exit For
Next j
Next i
ouTxt = result
End Function