Follow hyperlink

[robdgr]

In een blad verspring ik met

Private Sub CommandButton1_Click()
Range("G1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Blad1!C2020", TextToDisplay:=" "
    Range("G1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Hiermee zet ik eerst in G1 een hyperlink neer en in de laatste regel springt hij naar C2020. Ik dacht dat in één regel te kunnen vatten, maar alle pogingen mislukken. Op deze manier heb ik nog drie andere knoppen. Voor het bestand kun je op mijn site op het Top2000-vignet klikken.

Kan dit wel in één regel?

 

[Wigi]

In een blad verspring ik met

Private Sub CommandButton1_Click()
Range("G1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Blad1!C2020", TextToDisplay:=" "
    Range("G1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Hiermee zet ik eerst in G1 een hyperlink neer en in de laatste regel springt hij naar C2020. Ik dacht dat in één regel te kunnen vatten, maar alle pogingen mislukken. Op deze manier heb ik nog drie andere knoppen. Voor het bestand kun je op mijn site op het Top2000-vignet klikken.

Kan dit wel in één regel?

Hallo Rob

Dus je wil effectief de link zetten, en hem gebruiken. Waarom moet dit per sé in 1 regel? (Aangenomen dat je niet Snb heet )

Volgens mij heb je hiervoor zeker 2 regels nodig.

 

[robdgr]

Volgens mij heb je hiervoor zeker 2 regels nodig.

Wigi,

Dank voor je reactie. Je hebt me ooit deze gegeven:

Sub fotos()
 ActiveWorkbook.FollowHyperlink ("http://www.robdg.nl")
 End Sub

Analoog daaraan dacht ik ook dit op te lossen met één regel. Maar als het niet kan, slaap ik niet minder bij gebruik van twee regels.