como encontrar una cadena de texto de entre un texto

Bueno, no es una macro, pero creo que te servira:

=EXTRAE(D14,ENCONTRAR(CARACTER(255),SUSTITUIR(IZQUIERDA(D14,HALLAR("@",D14)),"
",CARACTER(255),LARGO(IZQUIERDA(D14,HALLAR("@",D14)))-
LARGO(SUSTITUIR(IZQUIERDA(D14,HALLAR("@",D14))," ",""))))+1,HALLAR("
",D14,HALLAR("@",D14))-
ENCONTRAR(CARACTER(255),SUSTITUIR(IZQUIERDA(D14,HALLAR("@",D14)),"
",CARACTER(255),LARGO(IZQUIERDA(D14,HALLAR("@",D14)))-
LARGO(SUSTITUIR(IZQUIERDA(D14,HALLAR("@",D14))," ","")))))

Abraham

Tengo este texto (y como este muchisimos)

This message was created automatically by mail delivery software.

A message that you sent could not be delivered to one or more of its recipients. This is a permanent error. The following address(es) failed:



unrouteable mail domain "praxismotion.net"
-

Como puedo hacer una macro que me encuentre la cadena de texto que lleva una arroba es decir
en SQL, es facil, y le pido que me traiga like (' *@*.* ') y me encuentra
pero en Excell. como se puede lograr, supongamos que en las celdas a:a es donde tengo esos textos
y quiero que en las celdas B.B, me escriba las direcciones de e-mail "limpias"
La finalidad es automatizar un proceso para dar de baja de un listado de correos:
1) aquellas direcciones erroneas, o
2) aquellas personas que se quieren dar de baja de la lista.
(de este segundo punto ya se como hacerlo eliminando de una columna los valores de otra)