名を付けて保存のコード（エクセルＶＢＡ）

質問

セルＡ１に書いてある文字をそのままファイル名にして保存させるコードの記述方法を教えて下さい。

例）
Ａ１に 「’００１」を入力しておき、シート上に配置してあるコマンドボタンをクリックすることで、「００１．ｘｌｓ」と名を付けて、あらかじめ決めてある、ディレクトリに保存

エクセル９７を使用しています。上書き保存とか、予めコード内にファイル名を書いておく方法は分かったのですが、セルを参照させる方法が分かりません！
どなたか詳しい方、宜しくお願い致します。

回答No.1

now2150 · ベストアンサー

セルの文字の参照は変数を使います。

Sub Macro1()

Dim X As String
X = Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\デスクトップ\" & X & ".xls"
End Sub

お礼

ｎｏｗ２１５０さん！ありがとうございました。お礼が遅くなりましてすみません！
うまくいきました。私のコードには「＆」が漏れていました。
助かりました。本当にありがとうございました。