On error

[Albatros]

Hoi,

Via een hyperlink wil ik een bestand openen, echter als dit bestand niet bestaat, wil ik een melding krijgen (The file does not exist!")
In onderstaande macro krijg ik de melding ook, als het bestand wel bestaat. Waar ga ik de fout in?

Sub Macroklik2()
'
' Bestand openen via hyperlink
On Error GoTo Err
    Application.Goto Reference:="R9C1"
    Range("A9").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
Err:
    MsgBox "The file does not exist!"
    Exit Sub

    Windows("Macro - Bestand openene adhv celnaam.xlsm").Activate
End Sub

Albatros

 

[edmoor]

Een macro wordt van boven naar beneden verwerkt, dus hij komt nu altijd bij dat bericht.

 

[VenA]

Een beetje kip en ei verhaal. Jouw code gaat altijd naar Err: Dus even de regels op de juiste plek zetten.

 

[Timshel]

Zo misschien?

Sub Macroklik2()
    On Error GoTo Err
    Range("A9").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Exit Sub
Err:
    MsgBox "The file does not exist!"
    Windows("Macro - Bestand openene adhv celnaam.xlsm").Activate
End Sub

 

[Albatros]

Tja, was inderdaad geen slimme volgorde , maar na een oplossing is alles simpel
Bedankt voor de hulp, en aandragen voor de eye-opener!

Albatros