vba runtime error save as, need to run next macro in series

[nflami]

Hello,

I have the below code with a simple save as command for my macro. The issue I run into is, if the file already exist and I choose "No" or "cancel" in the dialog box the code returns a runtime error since it doesn't know what to do next. I haven't had any luck with any methods of continuing my code using resume. I don't want to use a false command on the current dialog box since I want the user aware the file already exist. My goal is when this save as box pops up and the user choose no or cancel for it to skip to the next macro.

Sub SaveFile()
     
Dim dtDate As Date
dtDate = Date

Dim strFile As String
strFile = "FilePath\FileName" & Format(dtDate, "mmddyyyy") & ".xlsm"

ActiveWorkbook.SaveAs Filename:=strFile, FileFormat _
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
         
     Application.Run ("Macro")

Thanks!

 

[ParamRay]

.
.

Try adapting something like this:

Sub SaveAs()

    Dim Ans As Byte
    
    If Dir(strFile) <> vbNullString Then
        Ans = MsgBox( _
            Prompt:="A file named '" & strFile & _
                "' already exists in this location. " & _
                "Do you want to replace it?", _
            Buttons:=vbInformation + vbYesNoCancel)
    Else
        Ans = vbYes
    End If
    
    If Ans = vbYes Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs _
            Filename:=strFile, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Application.DisplayAlerts = True
    End If

End Sub

 

[nflami]

Solved Re: vba runtime error save as, need to run next macro in series

That did the trick! Thank you for the help, much appreciated!