pre set folder path (1 Viewer)

Function selectFile()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = False
    fd.Title = "Plase Select The Latest Run in."
    fd.Filters.Clear
    fd.Filters.Add "Excel Spreadsheet", "*.xls, *.xlxs"
       
    With fd
        If .Show Then
            selectFile = .SelectedItems(1)
        Else
            'stop execution if nothing selected
            End
        End If
    End With
 
    Set fd = Nothing

....
    With fd
        [COLOR="Navy"].InitialFileName="the path here"[/COLOR]
        If .Show Then
....