fileNamePath.vb

Public Function fileNamePath() As String
  
  '--- fileNamePath()
  ' in: n/a
  ' out: string, path and name of selected file
  ' desc: opens an explorer window so the user can select a file. No file type filters are applied.
  
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Clear
        .Title = "Select file"
        .AllowMultiSelect = False
        If .Show = True Then
            fileNamePath = .SelectedItems(1)
        End If
    End With

End Function