PDF per VBA öffnen

Private Sub Label101_Click()
Dim LW As String
Dim Ordner1 As String
Dim Ordner2 As String
Dim Datei As String
Dim File As String
LW = ThisWorkbook.Sheets("Verzeichnisse").Range("F1").Value
Ordner1 = ThisWorkbook.Sheets("Verzeichnisse").Range("G1").Value
Ordner2 = ThisWorkbook.Sheets("Verzeichnisse").Range("H7").Value
File = "DSE_KD_FCA.pdf"
Datei = LW & Ordner1 & Ordner2 & File
ThisWorkbook.FollowHyperlink Datei
End Sub