JHerseth

Sub ChooseFile()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    'get the number of the button chosen
    Dim FileChosen As Integer
    FileChosen = fd.Show
    
    If FileChosen <> -1 Then
        'didn't choose anything (clicked on CANCEL)