This macro will allow you to extract a url/mailto from excel and place it into the next cell.
To see more options: Click here
CODE:
-
Sub ExtractHL()
-
Dim HL As Hyperlink
-
For Each HL In ActiveSheet.Hyperlinks
-
HL.Range.Offset(0, 1).Value = HL.Address
-
Next
-
End Sub