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