Hi Greg

I never try it with GetOpenFilename

But maybe you can use a macro to do what you want
I have a example on this page
http://www.rondebruin.nl/copy3.htm#range2


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Greg Bloom" wrote in message news:54OVb.262882$na.420596@attbi_s04...
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