Durch die Filters-Collection eines FilePicker-Dialogs, den man sich mit
Set fd = Application.FileDialog(msoFileDialogFilePicker)
erzeugt hat, kann man leider nur die Dateierweiterungen festlegen, nach denen gesucht werden soll. Weitere Einschränkungen sind aber mit InitialFileName möglich. Will man z.B. nur die Excel-Dateien anzeigen, die im Pfad c:\test stehen und mit ABC anfangen, sieht der Code folgendermaßen aus:
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.InitialFileName = "C:\test\ABC*.xls"
.Filters.Clear
.Filters.Add "Objekte", "*.xls", 1
.Show
End With