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.

 Erstellen Sie in VBA ein Modul mit folgendem Inhalt:

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