Dynamic Hyperlink Address From Cell Value

Hey guys,

I am hitting a brick wall on this one. I am trying to assign hyperlinks to objects based on the cell value. Here is my code that colors the objects that have the same names as in Column AO. I am trying to also add a hyperlink to those same objects with the cell value in the list. The problem is while a hyperlink is added, I can not get the value of the cell to show up in the hyperlink address. Any help would be much appreciated.

Sub TurnColOn()
Dim i As Integer


On Error Resume Next


LastRowa = Range("AO65536").End(xlUp).Row


For i = 2 To LastRowa
Labl1 = Range("AO" & i).Value
    ActiveSheet.Shapes(Labl1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=Labl1
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
Next i


End Sub

Re: Dynamic Hyperlink Address From Cell Value

Thanks for the reply Andy. While building a sample to post, I have figured out the issue. If the value of the cell is a formula , it will not work using the value in a hyperlink.

Thanks anyway!