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