Hi Ryan
Use the getopenfile instead of the Dialogs option
as this is limited in what you can do.
With the GetOpenFile you have a number of options.
eg.FileFilter, FilterIndex, Title, ButtonText, MultiSelect - have alook @ online help.
To get the GetOpenFile to open @ your dir use something
like this;
Sub openf()
Dim FileNm As Variant
Dim OldDir As String
OldDir = CurDir 'saves current directory
ChDir "D:\aa" 'Change this to your Dir
FileNm = Application.GetOpenFilename
If FileNm = False Then ChDir OldDir: End
Workbooks.Open FileNm
End Sub
ie. Use the ChDir BEFORE you use the function,
then restore it if you need to.
Ivan