VBA Macro to extract emails from text files

[satish78]

Hi All,

I have list of text files in sheet1 source location like

ColumnA
C:\Google\Database\Sandy.txt
C:\Google\Database\Marry.txt
C:\Google\Database\Bran.txt

Need to extract emails from each file and put them in b1 if found 2/3 emails in each file then c1, d1.
VBA to go through the list from A1 and get the emails and paste them in beside columns.

Thanks
Satish

 

[satish78]

Can anyone help me?