My code opens the file dialog picker to import a data file and it automatically saves and closes. I'm trying to fix it so that if the person selects a file it runs as is, [COLOR="rgb(139, 0, 0)"]BUT if the user clicks cancel on the file dialog box, the macro stops instead of continuing to create a blank file.[/COLOR]


Thanks for all help.

Here is my code:

Selection.WholeStory
Selection.Delete
Dim defpath As String

'creates dialog box object
Dim oDl As Object
Set oDl = Application.FileDialog(msoFileDialogFilePicker)
With oDl
'sets file path
.InitialFileName = "W:\Daily to Fortis\Today"
'switches the file view to "All Files" instead of "All Word Documents"
.AllowMultiSelect = True
.Show
For j = 1 To .SelectedItems.Count
Documents.Add .SelectedItems(j)
Next

End With

'switch page orientation to landscape
Selection.PageSetup.Orientation = wdOrientLandscape

'Change the default filepath for documents back to the original default
Options.DefaultFilePath(wdDocumentsPath) = defpath
Selection.WholeStory
With Selection.Font
.Name = "Courier New"
.Size = 6.5
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone

End With

'where and how to save document
ActiveDocument.ExportAsFixedFormat OutputFileName:= _


"W:\Daily to Fortis PDF\" & Format(Date, "MMDD") & " GM" & ".pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=False, UseISO19005_1:=False
Selection.HomeKey Unit:=wdStory


'Closes the workbook without saving
Application.Quit False

End Sub