So rufen Sie das Dialogfenster auf, um eine Datei zu speichern.
Dabei muss es sich nicht unbedingt um das Speuichern handeln,
denn die Aktion nach dem Aufruf des Fensters müssen Sie selbst definieren.

Sub Speichern()
    'ggf. Laufwerk und Ordner als Vorgabe setzen
    ChDir "\"
    ChDrive "c:\"
    'Das Dialogfenster, "test.xls" als Vorgabedatei
    Dateiname = Application.GetSaveAsFilename _
      ("Test.xls", "Micrsoft Excel-Dateien (*.xls),*.xls")
    If Dateiname = False Then Exit Sub
    MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub

Möchten Sie weitere Dateitypen neben *.xls auswählen können
muss folgende Syntax verwendet werden:

Dateiname = Application.GetSaveAsFilename _
   ("Test.xls", "Micrsoft Excel-Dateien (*.xls), _
   *.xls,Textdateien (*.txt),*.txt,Add-In-Dateien (*.xla),*.xla")