Skip to content

Instantly share code, notes, and snippets.

@thelaarn

thelaarn/convert email list to hyperlinked email addresses

Created May 20, 2017 07:00
Show Gist options
  • Save thelaarn/fb5746b64b73e2674372eadd298d023d to your computer and use it in GitHub Desktop.
Save thelaarn/fb5746b64b73e2674372eadd298d023d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
convert email list to hyperlinked email addresses
Sub test()
For Each myCell In Columns("G").Cells.SpecialCells(xlCellTypeConstants)
If myCell.Value Like "?*@?*.?*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:="mailto:" & myCell.Value, TextToDisplay:=myCell.Value
End If
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment