| 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