como encontrar una cadena de texto de entre un texto

Tengo este texto (y como este muchísimos)


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:

ventas@praxismotion.net

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 fácil, y le pido que me traiga like (' *@*.* ')
y me encuentra ventas@praxismotion.net 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 erróneas, 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)