Makro til at åbne PDF-fil

Jeg skal bruge en makro, der åbner en PDF-fil fra Excel.

Jeg bruger denne makro til at åbne en doc-fil. Hvad skal ændres for at den åbner en pdf-fil:

Private Sub cmdOK_Click()

Const Skabeloner As String = "C:\Kunobeller\Skabeloner\" 'Dette er mappen hvor den finder skabelonen
Const Vejledning As String = "Vejledning.doc" 'Dette er navnet på skabelonen

'Dim MyWordApp As Word.Application
  Set MyWordApp = CreateObject("Word.Application")
  With MyWordApp
      .Visible = True 'True når du vil følge med
      .Documents.Open Skabeloner & Vejledning 'Rettet.
  End With
Unload Me
End Sub