VBA Excel prompt user to select a file in a default folder

Question

I would like to prompt user to open an Excel file in a default folder. I don't know how to open a default folder.

Sub Program1()
    DefaultFolder = "C:\user\dump"
    FName = Application.GetOpenFilename
    If FName <> False Then
        Set WorkB2 = Workbooks.Open(FName)
        ' some codes here
    End If
End Sub                           

Answer 1

Use chdir:

Sub Program1()
  Chdir "C:\user\dump"
  FName = Application.GetOpenFilename
  If FName <> False Then
    Set WorkB2 = Workbooks.Open(FName)
    ' some codes here
  End If
End Sub