Für Profis: Application.GetOpenFilename

Ich benutze folgendes VBA Konstrukt.
...
Application.GetOpenFilename("XLS Files (*.xls),*.xls", , , , True)
...
zum ermitteln von Dateien per Dialog.

Leider schaffe ich es nicht die Dateinamen zu filtern.
Eigentlich möchte ich z.B nur die Dateien mit Namen "*blatt.xls"
im Dialog sehen. Gibt es da ein Lösung.

Herzlichen Dank vorab.

Klaus

GetOpenFilename unterstützt nur Extensions-Filter. Als Möglichkeit:

Sub Filtern()
   Dim vFile As Variant
   SendKeys "*blatt~"
   vFile = Application.GetOpenFilename( _
      "Excel Files (*.xls), *.xls")
End Sub

hans