マクロで「名前を付けて保存」

Wordのマクロで「名前を付けて保存」を行うには次のようにします。

Sub 名前を付けて保存()
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "名前を付けて保存"
.Show
fn = .SelectedItems(1)
End With
ActiveDocument.SaveAs (fn)
End Sub

「ActiveDocument」を「ActiveWorkbook」にすればExcelでも同様に使えますが、マクロの有無などで拡張子を変えるなど、工夫が必要です。