Create Hyperlinks based on selection and cell contents

[Paul_Hossler]

I think this is what you were asking

I made a few cleanups. I don't like to use Activesheet, eiither a named one or a range's parent, since you can never count on the sheet that you "think'" is active actually being the ActiveSheet. Personal opinion -- your choice

Option Explicit

Sub AddHyperlinksToSelection()
    Dim newCell As Range

    For Each newCell In Selection
        Selection.Parent.Hyperlinks.Add _
            Anchor:=newCell, Address:="pronto:%20/u/pronto/data/L25%20drilldown%20job-code%20" & newCell.Text, TextToDisplay:=newCell.Text
    Next newCell
End Sub

Capture.JPG