Changing a Macro
 

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

Changing a Macro
 

(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

Changing a Macro
 

Sub convertToHypers()
Dim convertRng As Range
'Set convertRng = Range("L2:L1444")
Set convertRng = Selection
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,
Tom Ogilvy


"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

Changing a Macro
 

Ed, Tom, thank you very much. greatly appreciated.

--

Regards
Michael Koerner


"Tom Ogilvy" wrote in message
...
Sub convertToHypers()
Dim convertRng As Range
'Set convertRng = Range("L2:L1444")
Set convertRng = Selection
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,
Tom Ogilvy


"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