i have a database of e- mail ID's, and want to hyperlink the entire column so
that when I click on the ID, the Mail window opens. Can anyone help me how to
do that? and can the whole column of 2000 Mail IDs can be hyperlinked at a
time?

Use an adjacent column with a formula like:

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

Depending on what's in those cells.

Zoya wrote:

i have a database of e- mail ID's, and want to hyperlink the entire column so
that when I click on the ID, the Mail window opens. Can anyone help me how to
do that? and can the whole column of 2000 Mail IDs can be hyperlinked at a
time?

--

Dave Peterson

This little subroutine should do it. Just change the following line to
reflect your starting cell.

Range("E1").Select


Sub HyperLink()

Dim varVal As Variant
Dim i As Integer

Range("E1").Select
varVal = ActiveCell.Text
Application.ScreenUpdating = False
Do Until Len(varVal) = 0
i = i + 1
Application.StatusBar = "Formatting row " & i & _
", please wait..."
ActiveSheet.Hyperlinks.Add anchor:=Selection, _
Address:=varVal, TextToDisplay:=varVal
ActiveCell.Offset(1).Select
varVal = ActiveCell.Text
Loop

With Application
.StatusBar = False
.ScreenUpdating = True
End With

End Sub

--
Kevin Backmann


"Zoya" wrote:

i have a database of e- mail ID's, and want to hyperlink the entire column so
that when I click on the ID, the Mail window opens. Can anyone help me how to
do that? and can the whole column of 2000 Mail IDs can be hyperlinked at a
time?

Kevin,

I'm a general user having the same issue and have no idea how to perform the
following "subroutine" - can you elaborate in layman terms?

Many many thanks!

Whyvon

"Kevin B" wrote:

This little subroutine should do it. Just change the following line to
reflect your starting cell.

Range("E1").Select


Sub HyperLink()

Dim varVal As Variant
Dim i As Integer

Range("E1").Select
varVal = ActiveCell.Text
Application.ScreenUpdating = False
Do Until Len(varVal) = 0
i = i + 1
Application.StatusBar = "Formatting row " & i & _
", please wait..."
ActiveSheet.Hyperlinks.Add anchor:=Selection, _
Address:=varVal, TextToDisplay:=varVal
ActiveCell.Offset(1).Select
varVal = ActiveCell.Text
Loop

With Application
.StatusBar = False
.ScreenUpdating = True
End With

End Sub

--
Kevin Backmann


"Zoya" wrote:

i have a database of e- mail ID's, and want to hyperlink the entire column so
that when I click on the ID, the Mail window opens. Can anyone help me how to
do that? and can the whole column of 2000 Mail IDs can be hyperlinked at a
time?