Setting a default path in Application.GetOpenFilename

[dgs2001]

Hello

I am using the following code

Private Sub OpenFile()

Dim fileName

fileName = Application.GetOpenFilename("Ratings Sheet (*.xls),*.xls")

If fileName <> "False" Then
Application.ScreenUpdating = False
Workbooks.Open fileName, Format:=2

Other Code

End Sub

What I would like to do is stipulate a default path for the GetopenFilename.
The default path I'm after is :-

"D:\The Ratings\Sheets"

Can anybody help with this please?

Thanks Duncan

 

[dk]

Hi

You should be able to use ChDrive ChDir like so:

Private Sub OpenFile()

Dim fileName

ChDrive "D:"
ChDir "D:\The Ratings\Sheets"

fileName = Application.GetOpenFilename("Ratings Sheet (*.xls),*.xls")

If fileName <> "False" Then
Application.ScreenUpdating = False
Workbooks.Open fileName, Format:=2

Other Code

End Sub

HTH
DK