File Picker

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "OneDrive - Hewlett-Packard\*.*"
.Title = "Select User Data Input Location File"
.ButtonName = "Select Payment File"
If .Show = -1 Then
XLFile = .SelectedItems(1)

Else
Exit Sub
End If
XLFileName = fso.GetFileName(XLFile)
End With