View Single Post
 
Old 09-24-2020, 11:17 AM
NoSparks NoSparks is offline Windows 10 Office 2010
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 809
NoSparks is a jewel in the roughNoSparks is a jewel in the roughNoSparks is a jewel in the rough
Default

put before end sub
Code:
    With ActiveSheet
    For Each cel In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
        .Hyperlinks.Add Anchor:=.Cells(cel.Row, cel.Column), Address:=cel.Offset(, 2) & "/" & cel & cel.Offset(, -1)
    Next cel
    End With
Reply With Quote