SaveAs

[cmazur71]

How do I prompt the SaveAs dialog to popup during a macro? I want the user to SaveAs so that the original does not get overwritten? Ideally the SaveAs dialog would open up to the same folder that the excel file is already in.

 

[diddi]

Success = Application.Dialogs(xlDialogSaveAs).Show
if Not Success then MsgBox "User cancelled"

iirc this will insert a default filename

Success = Application.Dialogs(xlDialogSaveAs) MyDefaultFileName
if Not Success then MsgBox "User cancelled"

 

[AlphaFrog]

    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show Then .Execute
    End With