Con la función EXTRAE y con alguna más, seguro que se puede...
Para no tener conflictos si la cadena buscada está en mayúsculas y la cadena donde se busca está en minúsculas, o viceversa, te recomiendo un ligero cambio:
Código:
Function encuentra(pajar As String, aguja As String)
encuentra = InStr(LCase(pajar), LCase(aguja))
End Function
Y la llamas desde excel así:
Donde...
pajar = A1, A55, B44, "casa", "pepito", etc...
aguja = A1, A55, B44, "casa", "pepito", etc...
Salu2