Table Hyperlinks

[gheyman]

I have a table where a column has multiple URL adresses. Is there a way to make all the items in this column active hyperlinks so that when the user clicks them they open the address. These are dynamic values so they will change and there are a significant number of them. So I cannot go in them one by one defining the hyperlink path. Thanks

 

[gheyman]

Solved

Sub SSJ()

Sheets("SSJ").Visible = True
Sheets("SSJ").Activate

Dim LR As Long
Dim xlRange As Range
Dim Rng As Range


        LR = Sheets("SSJ").Cells(Rows.Count, "Z").End(xlUp).Row

        Set xlRange = Range("Z16:Z" & LR)
    
        For Each Rng In xlRange
            ActiveSheet.Hyperlinks.Add Rng, Rng.Value
        Next
        
End Sub

Thanks