Is there a way to filter, let's say all the excel files that start with
"1*.xls"

Filt = "Excel Files (*.xls),1*.xls" - this does not work, it brings in
all files in the sub-directory.
FilterIndex = 1
Title = "Select Order to Open"

FileName = Application.GetOpenFilename(filefilter:=Filt,
FilterIndex:=FilterIndex, Title:=Title)

thanks
Greg