How do I make email addresses in a column of cells active links?

[Jerimoth]

I have a column of email addresses, but they are static. How do I turn them
into active cells that when clicked take me to a new email message in Outlook?

[Gary''s Student]

Try this macro:

Sub email()
Dim r As Range
For Each r In Selection
ActiveSheet.Hyperlinks.Add Anchor:=r, _
Address:="mailto:" & r.Value, TextToDisplay:=r.Value
Next
End Sub

Just select the cells you want to convert and run the macro.
--
Gary''s Student


"Jerimoth" wrote:

> I have a column of email addresses, but they are static. How do I turn them
> into active cells that when clicked take me to a new email message in Outlook?

[Roger Govier]

Hi

Mark the range of cells with the email addresses.
Edit>Paste as Hyperlink

--
Regards

Roger Govier


"Jerimoth" <[email protected]> wrote in message
news:[email protected]...
>I have a column of email addresses, but they are static. How do I turn
>them
> into active cells that when clicked take me to a new email message in
> Outlook?

[Dave Peterson]

How about using another column:

=hyperlink("mailto:" & a1,a1)

and drag down.

Jerimoth wrote:
>
> I have a column of email addresses, but they are static. How do I turn them
> into active cells that when clicked take me to a new email message in Outlook?

--

Dave Peterson