Yes/No in msgbox

[bkoppers]

Wie kan mij vertellen wat ik fout doe.
Ik wil dat er niets gebeurd op het moment dat ik op de "No" knop duw, en op "Yes" moet er een bestand worden geopend, echter op de "No" knop opent excel nu ook het bestand!!

Sub openHMV()

On Error GoTo ErrMsg
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & Range("A2").Value & ".pdf"
Exit Sub

ErrMsg:
 MsgBox (Range("A2").Value & ".PDF niet gevonden, " & Chr(10) & "wilt u " & Range("a2").Value & ".RTF openen om te bewerken"), vbYesNo + vbInformation, "BESTAND NIET GEVONDEN"
 If vbYes Then ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & Range("A2").Value & ".RTF"
 If vbNo Then Exit Sub
End Sub

 

[edmoor]

Je doet niks om te de waarde in op te vangen.

Sub openHMV()
    On Error GoTo ErrMsg
    ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & Range("A2").Value & ".pdf"
    Exit Sub

ErrMsg:
    If MsgBox(Range("A2").Value & ".PDF niet gevonden, " & Chr(10) & _
            "wilt u " & Range("a2").Value & ".RTF openen om te bewerken", _
            vbYesNo + vbInformation, "BESTAND NIET GEVONDEN") = vbYes Then
        ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & Range("A2").Value & ".RTF"
    End If
End Sub

 

[bkoppers]

(een groot OOHHH JA moment) hartelijk dank voor de oplossing.