Updating hyperlinks attached to text boxes and icons

[Frank_Aa]

Hi,
I have set up my worksheet to recalculate the hyperlinks tagged to textboxes and icons.
This worked the 1st time, but later i got a message 'object doesn't support this property or method'

this is the code i used, :

Private Sub Worksheet_Calculate()
Shapes.Range(Array("TekstA3")).Select
Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=Range("C3")
End Sub

C3 holds the address for the link.
The plan was that the links should update when there had been a calculation or value change on the sheet.

Frank

 

[Frank_Aa]

It's solved,
the problem was i had an outside macro initiating the hyperlink refresh, and the proper sheet was activated.