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