Did you try using Find/Replace?

Use *@ in the Find What box,
put nothing in the Replace With box,
and click Replace All

That should do it pretty darn quickly. Just make sure to keep a copy
of your data in case you might need it later.

Note that if the addresses are hyperlinks they will continue to link
to the original address and not just the domain name that remains
after the replace.

On Dec 30, 4:37*pm, jmberner
wrote:
Hello,

I am attempting to extract text from an email address in a cell.
For example
If the cells are the following



I want to write a formula that will extract
Company
AnotherCompany

Any help will be appreciated.