Changing a Macro

[Michael Koerner]

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

 

[Ed]

(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

 

[Tom Ogilvy]

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

 

[Michael Koerner]

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

--

Regards
Michael Koerner


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