ファイルの保存先を任意にしたい（マクロ）

質問

エクセルのマクロです。
　マクロを実行した時に、保存先とファイル名は任意に入力して（その部分だけは、マクロ実行者が入力して）、その後もマクロを実行させたいのですがどうすれば良いのでしょうか？
たとえば、
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ChDir "C:\Documents and Settings\a\デスクトップ"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\a\デスクトップ\
Book1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("B2").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\a\デスクトップ\
Book2.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("A3").Select
ActiveCell.FormulaR1C1 = "3"
Range("B3").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\a\デスクトップ\
Book3.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Range("A4").Select
ActiveCell.FormulaR1C1 = "4"
Range("B4").Select
　上記の場合は、保存先もファイル名もこちらが指定していますが、その部分だけは、マクロの実行者に任意指定及び入力させたいのです。
　マクロ初心者なので、よろしくお願いします。

回答No.1

n-jun · ベストアンサー

http://www.big.or.jp/~seto/vbaref/vbaref14.htm
(2) ファイルを保存するダイアログボックスを使う

が参考になるかもです。

お礼

とても参考になりました。ありがとうございました。