(1) Change "Set convertRng = Range("L2:L1444")" to "Set convertRng =
Selection"
(2) Select the range of cells you want to work with.
(3) Run the macro.

Ed

"Michael Koerner" wrote in message
...
I received this macro awhile back. It works as advertised for the most
part.
Unless the data to be converted is in a column other than "L".

What do I need to change to define the convertRng as the range I have
selected?


Sub convertToHypers()
Dim convertRng As Range
Set convertRng = Range("L2:L1444")
Dim rng As Range

For Each rng In convertRng
If rng.Value < "" Then
ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value
End If
Next rng

End Sub


--

Regards
Michael Koerner