Prompt where to save - capture user pressing cancel

[sharky12345]

I'm using this to prompt the user to save a a word document in their chosen location;

With Application.Dialogs(wdDialogFileSaveAs).Name = "Welfare Document - RM " & TextRM.Value
.Format = wdFormatXMLDocument
.Show
End With

If they do go on to save I need the userform to be unloaded, but the bit I am struggling with is how to simply return to the userform if they click cancel and don't save?

 

[Kamolga]

Maybe

[COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#303336][FONT=inherit] Application[/FONT][/COLOR][COLOR=#303336][FONT=inherit].[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Dialogs[/FONT][/COLOR][COLOR=#303336][FONT=inherit]([/FONT][/COLOR][COLOR=#303336][FONT=inherit]xlDialogSaveAs[/FONT][/COLOR][COLOR=#303336][FONT=inherit]).[/FONT][/COLOR][COLOR=#303336][FONT=inherit]Show [/FONT][/COLOR][COLOR=#101094][FONT=inherit]Then[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#858C93][FONT=inherit]' User saved[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
[/FONT][/COLOR][COLOR=#101094][FONT=inherit]Else[/FONT][/COLOR][COLOR=#303336][FONT=inherit]
   [/FONT][/COLOR][COLOR=#858C93][FONT=inherit]' User canceled[/FONT][/COLOR][COLOR=#303336][FONT=inherit] 
[/FONT][/COLOR]End[COLOR=#303336][FONT=inherit] [/FONT][/COLOR][COLOR=#101094][FONT=inherit]If[/FONT][/COLOR][COLOR=#222222][FONT=Verdana]

[/FONT][/COLOR]

 

[Yongle]

Try this

Private Sub CommandButton1_Click()
    With Application.Dialogs(wdDialogFileSaveAs)
        .Name = "Welfare Document - RM " & TextRm.Value
        .Format = wdFormatXMLDocument
        If .Show Then Unload Me
    End With
End Sub