VBA code with shape hyperlinks

[dabaron]

Hi, I'm using the following code so that when i click on a hyperlink the linked cell always appears in the top left corner of the sheet:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Application.Goto Range(Target.SubAddress), True

End Sub

This works fine when i create a hyperlink on a cell but when I hyperlink a shape it doesn't work. If someone could show me how to edit the code so clicking hyperlinked shapes takes me to the destination cell with it being in the top left corner it would be much appreciated!

[G e r a r d]

If you have a shape on your sheet you can asign a macro to that shape:

Sub Pan2Destination()
'
' Pan to destinated cell
'
    Dim rTarget As Range
    Set rTarget = Range("C14") 'Destination cell
    'pan
    ActiveWindow.ScrollColumn = rTarget.Column
    ActiveWindow.ScrollRow = rTarget.Row
    
    rTarget.Select 'If cell needs to be selected.
    
End Sub

[dabaron]

Thats perfect, thank you!