clean email addresses (function mid, find, left, len)

Heres a Function that you can use

Function GetEmailAddress(RngEmail As Range)
 Dim pos As Long
 Dim posend As Long
 
    If Len(RngEmail.Value) = 0 Then
        GetEmailAddress = ""
        Exit Function
    End If
    
    pos = InStr(1, RngEmail.Value, ">") + 1
    posend = InStr(pos, RngEmail.Value, "</a>", vbTextCompare)
    
    GetEmailAddress = Mid(RngEmail.Value, pos, posend - pos)
        
End Function

Thank you Mike. Works like a charm.

I don't know how to make it automatic for a range in VBA. I tried that but it was a total failure.

Range("B1:B99").Value = GetEmailAddress(Range("A1:A99"))

Loop thru the range, something like this.

Sub test()
    For i = 1 To 99
        Cells(i, "B") = GetEmailAddress(Cells(i, "A"))
    Next
End Sub

Thank you Mike for sharing your expertise with a newbie like me. That works perfectly. Cheers !