dateien öffnen mit commanbutton ?

Private Sub Kataloge_auswählen_Click()
ChDrive "C:\"
ChDir "C:\Firma\Firma\Technik\Kataloge\"
Application.GetOpenFilename
End Sub

würde gerne so ein fenster öffnen und dann dateien öffnen die ich will. diese können jeglicher art wie pdf, word etc sein. das fenster schliesst sich aber beim öffnen wieder und es öffnet sich nicht wen ich die gewünschte datei anwähle und rechts unten öffnen drücke? exceldateien werden nicht gewählt.
kann mir bitte jemand helfen wie ich den code richtig schreibe.
danke
gruess