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