Extract Email ID From A List Of Sentences

[snb]

An alternative:

Function F_snb(c00)
   F_snb = Trim(Replace(Join(Filter(Split("|~" & Join(Filter(Split(c00), "@"), "|~"), "|"), "~@", False)), "~", ""))
End Function

[dunndealpr]

Hey SNB, thanks for your input. I tried running your VBA instead of Rick's on the test xl attached as well as the original Cursed File but all it gives me is #NAME?

Did you try your VBA on my test file?

[snb]

Yes I tested it on your file.

Do you know where to store a UDF and how to call a UDF ?