remove spaces and characters in hyperlink - macro

hello,

I am writing to seek help, in developing a macro which can pick out extra fullstops and spaces in email hyperlink and erase them.

for example:
input data in column J
Dennis S..Connolly@cgcpc.com
Arthur.De Joya@dejoyagriffith.com
Charles (Yi).Yin@marcumbp.com
Clinton F.Bateman@abbmgroup.com
Edward.Hacker, Jr@hackerjohnson.com
Francis J..Grady@cgcpc.com

desired output:
update column J
Dennis.Connolly@cgcpc.com
Arthur.De Joya@dejoyagriffith.com
Charles (Yi).Yin@marcumbp.com
Clinton F.Bateman@abbmgroup.com
Edward.Hacker, Jr@hackerjohnson.com
Francis.Grady@cgcpc.com

the format of the emails should be "f_name.l_name@###.com"

Please note: there is a if formula the cells of column J.

Thank you for your help in advance.

This should do it

Please Login or Register  to view this content.

Thank you so much for your help and quick response.
The code works perfect, besides validating the following strings:

input
Edward.Hacker, Jr@hackerjohnson.com
Charles (Yi).Yin@marcumbp.com

desired output:
Edward.Hacker@hackerjohnson.com
Charles.Yin@marcumbp.com

Any help on this issue, would be very helpful. I really appreciate your time and help.

Thank you.

Then

Please Login or Register  to view this content.