Here is the code for the custom function:
Function GrabLink(rng As Range) As String
On Error Resume Next
GrabLink = rng.Hyperlinks(1).Address
End Function
Here is the function to hyperlink and remove the mailto text on email links:
=HYPERLINK(GrabLink(A1),RIGHT(GrabLink(A1),LEN(GrabLink(A1))-7))
Hope this helps and thank you for watching.