エクセル(マクロ・VBA)について 以下の構文はどこが間違っている

エクセル(マクロ・VBA)について
以下の構文はどこが間違っているでしょうか。
変数:シート番号の名称で保存したいです。 Sub 保存()
Dim シート番号 As Integer
シート番号 = 5
Do Until シート番号 = Worksheets.Count
ActiveWorkbook.Worksheets(シート番号).SaveAs _
Filename:=”C:\Users\xxxxxx\Documents\新しいフォルダー\収納\”&シート番号&”.csv”
シート番号 = シート番号 + 1
Loop
End Sub



&連結は半角スペースが必要です。
=”C:\Users\xxxxxx\Documents\新しいフォルダー\収納\” & シート番号 & “.csv”
因みにループの終了条件には注意してください。
「Do Until シート番号 = Worksheets.Count」では、
最後のシート数が処理されません、又、初期シート番号よりシート数が少ないとエンドレスループになります。
Do Until シート番号 > Worksheets.Countとか、Do While シート番号 <= Worksheets.Countでしょうね。 ◆シート名と同じ名前で保存したい場合は、 ActiveWorkbook.Worksheets(シート番号).SaveAs _ Filename:="C:\Users\xxxxxx\Documents\新しいフォルダー\収納\" & ActiveWorkbook.Worksheets(シート番号).Name & ".csv", FileFormat:=xlCSV とします。