Link aanroepen via commando-knop

[Zwanske]

Ik heb één cel (P2) waar ik een HYPERLINK heb opgemaakt afhankelijk van een aantal veranderlijke factoren.

=HYPERLINK(TEKST.SAMENVOEGEN("C:\Gegevens\PRIVE\";VERSCHUIVING(Basisinfo!A15;N1-2;0);".htm"))​

Wanneer ik deze cel aanklik functioneerd alles naar behoren.
Om het gebruik wat overzichtelijk en gemakkelijk te maken wil ik deze hyperlink openen met behulp van een commando-knop.

Welke programmacode moet ik nog toevoegen?

Private Sub Naar_HTML_Click()

Range("P2").Select​

End Sub​

 

[Wigi]

Dat blijkt niet zo gemakkelijk

Dit heb ik eerst geprobeerd:

Dim h As Hyperlink
    
    For Each h In Range("A1").Hyperlinks
        MsgBox h.Address
    Next

Maar met de hyperlink functie gaat dit niet, wel als je die link er "hard" inzet.

Zal nog wat verder proberen.

Wigi

 

[Wigi]

Dat blijkt niet zo gemakkelijk

Moeilijk gaat ook hé

Dit werkt voor mij:

Dim fNotep As Long
    fNotep = Shell("Notepad " & Range("A1").Text, 3)

Wigi

 

[Zwanske]

Moeilijk gaat ook hé

Dit werkt voor mij:

Dim fNotep As Long
    fNotep = Shell("Notepad " & Range("A1").Text, 3)

Wigi

Bedankt voor de reactie.
Het ging wel om een HTML-bestand.
Jouw oplossing opent mijn bestandje gewoon als tekst in de kladblok.
Ik heb zelf nog wat verder gezocht en vond de volgende perfect werkende oplossing.

ActiveWorkbook.FollowHyperlink Address:=Range("P2"), NewWindow:=True​