Dim fName As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Open"
.Filters.Clear
.Filters.Add "Excel Files", "*.xlsx"
.FilterIndex = 1
.InitialFileName = "Fred*.xlsx" '<-----
.Title = "Select File"
If .Show = 0 Then Exit Sub
fName = .SelectedItems(1)
End With
Debug.Print fName