Microsoft Office Forums - View Single Post - [Solved] Can't save file using a msoFileDialogSaveAs

Franci · 01-09-2023, 05:05 AM

Quote:

Originally Posted by BrianHoard

Does this help?

Code:

Sub ShowSaveAsDialog()
  Dim dlgSaveAs As FileDialog
  Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
  dlgSaveAs.InitialFileName = "test.docx"
  
  If dlgSaveAs.Show <> 0 Then
    dlgSaveAs.Execute
  End If
  
End Sub

Thank you Brian, that works.