REPT(" ",125)))-100,125))
>
>
> --- On *Sat, 6/15/13, De Premor * wrote:
>
>
> From: De Premor
> Subject: Re: $$Excel-Macros$$ split function in vba
> To: excel-macros@googlegroups.com
> Date: Saturday, June 15, 2013, 2:54 PM
>
>
> Function ExtractEma
00,125))
--- On Sat, 6/15/13, De Premor wrote:
From: De Premor
Subject: Re: $$Excel-Macros$$ split function in vba
To: excel-macros@googlegroups.com
Date: Saturday, June 15, 2013, 2:54 PM
Function ExtractEmail(Sentence As String) As String
Dim Word
For
Function ExtractEmail(Sentence As String) As String
Dim Word
For Each Word In Split(Sentence, " ")
If InStr(1, Word, "@") > 0 Then ExtractEmail = Word
Next
End Function
For example: in case we have a sentence like "*please send mail to
some...@example.com or futher info*"
the
