If fDialog.Show <> -1 Then Exit Sub 'If fDialog.Show = -1 Then 'Debug.Print fDialog.SelectedItems(1) 'Else 'Exit Sub 'End If