VBAのコードにて名前を付けて保存のやり方ができません。
現在開いているファイルを
名前を付けて保存したいのですが
ファイルの指定方法が間違っているのか保存できません。
やりたいこと
現在開いているファイル内のシート（設定画面）の
A1セルとA2セルの文字を
"G:￥●エクセル￥ソフト￥計画"のドライブにて
保存する（A１セルとA２のセルの文字をくっつけて名前を付けて保存したい）
例：元のbook1のファイル名をA1セルとA２セルの文字をくっつけた
名前にしてから保存したい。
保存先のドライブの指定方法が分からなかったため
マクロの記録にてそのドライブへ名前を付けて保存してみて
ドライブの名前の指定をしました。（この方法も間違っていますか？）
コードを下記に記載しています。
すいませんがうまく動くコードを記載してもらえると
助かります。
回答よろしくお願いします。
Sub macro1()
Dim wb As Workbook
Dim ws As Worksheet
Dim hozonPath As String
Dim FolName As String
Dim FilName As String
Set wb = ThisWorkbook
Set ws = Worksheets("設定画面")
hozonPath = "G:￥●エクセル￥ソフト￥計画"
FolName = ws.Range("A1").Value
FilName = ws.Range("A2").Value
wb.SaveAs fileName:=hozonPath & FolName & "￥" & FilName
End Sub
