Koda:
Sub BrowseJobsMappingFile()
' select jobs mapping XLSX file
Dim ffile As Variant
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
ffile = Application.GetOpenFilename("Sales XLSX File (*.xlsx*), *.xlsx*")
If ffile = "False" Then Exit Sub
Range("rngImportFile").Value = ffile
End Sub