Sub SaveDialog() Dim dlgSaveAs As FileDialog Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs) dlgSaveAs.Show msgBox dlgSaveAs.SelectedItems(1) End Sub