So rufen Sie das Dialogfenster auf, um eine Dateiauswahl zu treffen.
Dabei muss es sich nicht unbedingt um das Öffnen handeln,
denn die Aktion nach dem Aufruf des Fensters müssen
Sie selbst definieren.

Sub Öffnen()
    'ggf. Laufwerk und Ordner als Vorgabe setzen
    ChDir "\"
    ChDrive "c:\"
    'Das Dialogfenster
    Dateiname = Application.GetOpenFilename _
       ("Micrsoft Excel-Dateien (*.xls),*.xls")
    If Dateiname = False Then Exit Sub
    MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub

Möchten Sie weitere Dateitypen neben *.xls auswählen können
muss folgende Syntax verwendet werden:

Datei = Application.GetOpenFilename _
   ("Micrsoft Excel-Dateien (*.xls),*.xls,Textdateien (*.txt), _
   *.txt,Add-In-Dateien (*.xla),*.xla")