Email Extraction Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Sub ayikla() For x = 1 To [a65536].End(3).Row d = Split(Cells(x, 1)) For Each elem In d If InStr(elem, "@") Then a = a + 1 Sheets("sayfa2").Cells(a, 1) = Trim(Replace(Replace(Replace(elem, ",", ""), "e-mail:", ""), Chr(160), "")) End If Next elem Next x Sheets("sayfa2").Select End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 email extraction 2 send alert e-mail from microsoft outlook 3 email inquiry in textbox 4 Active workbook in email: Use this macro code to quickly send your active workbook by email. & Nbsp; You can change the subject email and body text in the code. If you want to send this mail directly, use.Send" instead of.Display." 5 send active sheet / page by email 6 email selected cells 7 Sends an email to a1 8 giving and opening email links 9 link to a1 and open outloook with mail in a1 10 email window of active book 11 Send mail with Excel 12 sending email with macro 13 add an email link 14 mini email 15 excel operators hk 16 copies active sheet / page email 17 Send or bulk mail with Outlook 18 Mail Next Letter Dialog Window 19 50000 ROWS EXTRACTION FORM TO G-pillar (ejects F2 from E2) 20 do not open excel file after a certain date