マクロで「名前を付けて保存」を実行したいのですが

質問

エクセル2000でマクロを作成しています。
そのマクロを作成したファイルを、各ユーザーが使用しますが、作業途中のファイルを「名前を付けて保存」したいと考えています。
しかし、各ユーザーのＰＣ環境がまちまちなので、保存ファイルのパス名の記述が画一的に出来ない状況となっています。

そこで、エクセルの名前を付けて保存のショートカットキー『Ｆ１２』の押下動作をユーザーフォーム上のコマンドボタンで出来るようにしたいのです。
単純にＦ１２キーを押せばいいのですが、ユーザーはショートカットキー操作は全く慣れていないので、ユーザーフォーム上のオブジェクトだけで操作が出来るようにしたいと考えています。

どなたか、この方法がお分かりの方がおられましたら、ご教示頂きたくお願い致します。

回答No.1

masa_019 · ベストアンサー

こんにちは。

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

ということでしょうか。

お礼

早速ありがとうございます。
思っていた通りのことが出来ました。
キー操作ではなく、ダイアログを表示させればいいんですね。
ありがとうございました！