FilePicker

Allows user to select one of more files

Dim objFileDialog As Office.FileDialog 
    Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogFilePicker) 
    
    With objFileDialog 
        .AllowMultiSelect = True 
        .ButtonName = "File Picker" 
        .Title = "File Picker" 
        If (.Show > 0) Then 
        End If 
        If (.SelectedItems.Count > 0) Then 
            Call MsgBox(.SelectedItems(1)) 
        End If 
    End With