thanks. I ended up with:

Function findit(strText As String) As String

n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
v = Cells(i, 1).Value
If InStr(v, strText) 0 Then
strFound = v
End If
Next
findit = strFound
End Function