Excel VBAでシートを新規ブックとして、名前を付けさせて保存するには

こんばんは。質問です。
シートを新規ブックにコピーしたいのですが、その際に
名前を付けて保存のダイアログを出して、名前のボックス
に「シート名」だけを表示させておいて、後は操作者が任意に
名前を追加できるようにして保存するようにするにはどのように
したらいいでしょうか？
例えば、別ブックに保存したいシートが「売上」というシート名
であればダイアログボックスに「売上」と表示させ、操作者は任意で
「売上４月」などとするようにして保存したいということです。
よろしくお願いします。

No.1 ベストアンサー 回答者： masa_019 回答日時： 2007/05/09 20:55

こんにちは。

新規ブックにコピーしたいシートが
アクティブになっている状態で、
試してみて下さい。

Sub Sample()

With ActiveSheet
.Copy
Application.Dialogs(xlDialogSaveWorkbook).Show .Name & ".xls"
End With

End Sub

この回答へのお礼

こんばんは。お礼が遅くなり申し訳ございません。うまくできました。
ひとつ勉強になりました。

お礼日時：2007/05/11 22:13