Hi Greg,

In my VBA Code:
I set the Application.DefaultFilePath = "C:\OE"
I then set File_Name = Application.GetOpenFilename(filefilter:=Filt,
FilterIndex:=FilterIndex, Title:=Title)


Use:

Chdrive("C:")
ChDir("C:\Data")
then do the getopenfilename

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com