＜急＞指定するセル内の文字をファイル名にしてマクロで保存

質問

エクセル97、windows-xpです。

エクセルでアンケートを作成しました。
このファイルの保存先は、F\アンケート\従業員.xlsです。
そして、エクセルの中には「ツール－フォーム」からボタンをひとつ作り置きしました。
セル「Ｈ３」には、アンケートに答えた人の名前を入力することになっています。

という状況で以下のことはできますか？
ボタンをクリックすると、Ｈ３に入力されている”個人名”を使って”名前を付けて保存”。そして、自動的にファイルを閉じる。←ということをしたいです。
保存先は、前述したとおり、アンケートというフォルダです。
これをマクロで記述する方法を教えてください！！

急なことで、文章がわかりづらかったらすみません。
宜しくお願い致します。

回答No.1

Selfishness · ベストアンサー

=================================================
Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs ("D:\" & Range("H3").Value)
End Sub
=================================================

これでいけると思います。

補足

できました！！！
すみません、それと、自動的にファイルを閉じさせるにはどうしたら・・・
宜しくお願い致します！！

回答No.3

Selfishness

Excelを終了するなら
ThisWorkbook.Application.Quit

ブックを閉じるなら
ThisWorkbook.close

でいけると思います。

回答No.2

Selfishness

ごめんなさい。フォルダ名間違ってる。

「D:\」を「F\アンケート\」に変換してください。

補足

あ、ダイジョウブでしたよ、きづきましたっ！^-^
えっと、ファイル名をつけたと同時に、自動的にファイルを閉じたいのですが・・・どうしたらよいかと・・・すみません！！宜しくお願い致します！！