pdf file openen met een macro mbv celwaarde

[Robbie1966]

Ik werk met 2 directory's
De eerste is D:\excel\
Hierin staat mijn excel programma wat maar bestaat uit 1 werkblad (naam:Hoofdblad).
De tweede directory is D:\PDF\
Hierin staan al mijn pdf's opgeslagen in de vorm van een 10 cijferig nummer
Nu ben ik op zoek naar een macro in excel waarbij ik een pdf open uit de "PDF" directory via een nummer wat ik ingeef in cel B5 op mijn hoofdblad.
Mocht het nummer niet voorkomen dan moet hier een melding van gemaakt worden.
Wie kan/wil mij helpen ?

 

[edmoor]

Zonder een voorbeeld document:

ActiveWorkbook.FollowHyperlink "D:\PDF\" & Sheets("Hoofdblad").Range("B5") & ".pdf"

 

[HSV]

Sub hsv()
Dim s0 As String
    s0 = "D:\pdf\" & sheets"hoofdblad").Range("b5").Value & ".pdf"
   If Dir(s0,16) <> "" Then
     Shell "cmd /c " & s0
    Else
     MsgBox """" &  sheets"hoofdblad").Range("b5") & ".pdf""  bestaat niet"
   End If
End Sub

Sub hsv_2()
Dim s0 As String
s0 = "D:\pdf\" & Sheets([COLOR=#3E3E3E]"hoofdblad"[/COLOR]).Range("b5") & ".pdf"
 If Dir(s0, 16) <> "" Then
    ThisWorkbook.FollowHyperlink s0
  Else
     MsgBox """" &  sheets("hoofdblad").Range("b5") & ".pdf""  bestaat niet"
 End If
End Sub

 

[Robbie1966]

Edmoor en HSV mag ik jullie (weer) hartelijk danken voor de hulp.
Precies wat ik zocht.
@hsv de haakjes openen voor "hoofdblad") zijn weggevallen maar mocht de pret niet drukken.
Ik ga dit zeker gebruiken.
Ik zal de vraag op beantwoord zetten.