Format email addresses?

  • Thread starter Thread starter Steve
  • Start date Start date
S

Steve

Is there any way to format a column of email addresses, so if I click
on an address it will open up a new message in my email client?


--

The government is unresponsive to the needs of the little man.
Under 5'7" it is impossible to get your congressman on the phone.

....Woody Allen
 
Hi Steve

You can run this macro for column A

Sub test()
For Each myCell In Columns("A").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

Or insert a column with formulas

=HYPERLINK("mailto:" & A1,A1)
 
Or insert a column with formulas
=HYPERLINK("mailto:" & A1,A1)
Click to expand...

Thanks Ron, that works great!


--

The government is unresponsive to the needs of the little man.
Under 5'7" it is impossible to get your congressman on the phone.

....Woody Allen
 
Back
Top