Splitting a Character String - Email Addresses

[t2true]

I have a list of email addresses from which I want to split out just the @ and the domain name (i.e. - @domainname.com) into an adjacent cell.

Example:
Original
A1 - nameofperson@domainname.com
A2 - x@y.com

Result
B1 - @domainname.com
B2 - @y.com

Is there a function that can do this?
NOTE: I do not know/understand VBA, so if that is the answer, please include specific details.


Thanks

 

[JoeMo]

Copy B1 down.

Excel Workbook
	A	B
1	nameofperson@domainname.com	@domainname.com
2	x@y.com	@y.com
Sheet7

 

[t2true]

Much appreciated Joe!!

 

[JoeMo]

Much appreciated Joe!!

You are welcome - thanks for the reply.