Assign a specific Column to Shapes that Link to Hyperlinks

[RedBorg]

I have this code that works however it works too well, as that it wants to assign a hyperlink to every shape on my page. I need to tell this code which column to reference the shapes before it anchors the hyperlinks to them. My shapes are located in Column T and my Hyperlinks are located 4 Columns to the left of Column T. Here's my original code and thanks for your assistance with this.

    Sub Macro3()
    '
        Dim shp As Shape
    '
        For Each shp In ActiveSheet.Shapes
            ActiveSheet.Hyperlinks.Add Anchor:=shp, _
            Address:=shp.TopLeftCell.Offset(, 4).Text
    '
        Next shp
    '
    End Sub

 

[RedBorg]

I meant to say that the hyperlinks are 4 columns to the right of Column T, not to the left.

 

[Domenic]

Try...

[COLOR=darkblue]Sub[/COLOR] Macro3()
[COLOR=green]'[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] shp [COLOR=darkblue]As[/COLOR] Shape
[COLOR=green]'[/COLOR]
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] shp [COLOR=darkblue]In[/COLOR] ActiveSheet.Shapes
        [COLOR=darkblue]If[/COLOR] shp.TopLeftCell.Column = 20 [COLOR=darkblue]Then[/COLOR] [COLOR=green]'Column T[/COLOR]
            ActiveSheet.Hyperlinks.Add Anchor:=shp, _
            Address:=shp.TopLeftCell.Offset(, 4).Text
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=green]'[/COLOR]
    [COLOR=darkblue]Next[/COLOR] shp
[COLOR=green]'[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Hope this helps!

 

[RedBorg]

Absolutely works. You guys are fast and very knowledgeable.
Thanks,
Scott "RedBorg"

 

[Domenic]

You're very welcome!

Cheers!