Cancelling on Save As dialogue Box

[kelly mort]

ActiveWorkbook.SaveAs Filename:=FileSaveAs, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

I just observed some issue with this code is am trying to use to save my workbook with the Save As dialogue. When I click cancel it goes on to create a file named "FALSE". what is the issue here?
Regards
Kelly

 

[btorrean]

Kelly,

Can you post a little more code before and after the event to see what is generating the error? When the user clicks 'Cancel' on a FileDialog, it produces the filename of 'FALSE'. You have to trap that condition to prevent the code from proceeding if the user clicked Cancel. Here's some code that I have that does a similar thing. Maybe this will help you, but again, if you could post a little more of your code, that would be great!

' Pick the output folder
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "Please select a folder that the output files are to go to..."
    If .Show <> -1 Then
        ' The user cancelled.  Exit the code.
        Exit Sub
    Else
        strOutputPath = .SelectedItems(1) & "\"
    End If ' .Show...
End With

Brian

Brian J. Torreano

 

[kelly mort]

Sub CreateSaveAs ()
FileSaveAs = Application.GetSaveAsFilename(FileFilter:="Exel Files (*.XLSM, *.XLSM", Title:="Select Name To Save The File")
ActiveWorkbook.SaveAs Filename:=FileSaveAs, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End  Sub

 

[Norie]

Try this.

Sub CreateSaveAs()
Dim FileSaveAs As String

    FileSaveAs = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.XLSM, *.XLSM", Title:="Select Name To Save The File")
    
    If FileSaveAs <> "False" Then
        ActiveWorkbook.SaveAs Filename:=FileSaveAs, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    End If
    
End Sub

 

[kelly mort]

Norie,
Workdone . Thanks very much. I am progressing gradually
Kelly