Lien hypertexte

Bonjour

En cellule A1 j'ai un lien hypertexte ,je voudrais le déclencher avec un bouton activx ,quel code mettre a ce bouton?

Merci pour votre aide

Crdlt

J'ai trouvé

Private Sub CommandButton1_Click()
Range("A1").Hyperlinks(1).Follow
End Sub