VBA to make e-mail address in a cell to a hyperlink

[Shawn]

I have a column that has e-mail addresses typed in each cell. If I place
the curser in the cell and hit return, Execl converts the address into a
hyperlink to where I can just click the cell and Outlook opens automatically
with the e-mail address in the "To:" box.

Is their a VBA that will convert each cell in the column to hyperlinks?

 

[Vergel Adriano]

Shawn,

Here's one way:

Sub Test
Dim c As Range

With ActiveSheet
For Each c In Application.Intersect(.UsedRange, .Range("A:A"))
.Hyperlinks.Add anchor:=c, Address:="mailto:" & c.Value
Next c
End With

End Sub