Hier mein bisheriger Code:
Private Sub CommandButton2_Click()
' Dateiauswahlfenster öffnen
Dim AppWD As Object
Dim fn
Const StartDrive = "X:"
Const StartDir = "X:\Public-Kammer_Heinrich"
ChDrive StartDrive
ChDir StartDir
fn = Application.GetOpenFilename("alle-Dokumente, *.", , "Bitte Datei auswählen")
If fn = False Then Exit Sub 'Abbrechen gedrückt
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"
Vielen Dank für eure Hilfe