VBAの.Nameについて

Question

前提・実現したいこと

VBAで動的なシート追加を作成しております。
12か月分作成したいのでボタンを押すと12枚シートが作成されるような仕様にしています。

発生している問題・エラーメッセージ

シート名を2020年1月、2020年2月、2020年3月……
のように設定したいのですが、エラーが出てしまい出来ません。

該当のソースコード

 Dim i As Long
 
    For i = 1 To 3
    '新しいエクセルファイルの最後にシートをコピーする
        Worksheets("2020年10月お試し").Copy _
        After:=Worksheets(Worksheets.Count)
    
    'シート名は連番をセット
     ActiveSheet.Name = i
    Next

試したこと

ActiveSheet.Name = i
上記の分をActiveSheet.Name = "2020年"+i+"月"
ActiveSheet.Name = "2020年"&i&"月"
などにして試してみましたがエラーが出てしまいました。

Comments

[meg_]

どんなエラーなのかを追記してください。

[ttyp03]

こちらでは問題なく動きました。シート名1～3が作成されました。
エラーの情報を追記してください。

[ttyp03]

ん？違うのか。
iはいいけど"2020年"&i&"月"がダメだったって話？

Answer 1

＆演算子の話は適切な回答があるので、別案。

Sub test()
    Dim i As Long
    Dim n As Long
    
    n = Worksheets.Count
    
    For i = 1 To 12
        With Worksheets
            .Item(1).Copy After:=.Item(n + i - 1)
            .Item(n + i).Name = Format(DateSerial(2020, i, 1), "yyyy年m月")
        End With
    Next
End Sub

Sub test2()
    Dim i As Long
    Dim wsh As Worksheet
    
    Set wsh = Worksheets(Worksheets.Count)
    wsh.Name = "2020年10月"     'お試しのシート名を仮につける
    
    For i = 1 To 12
        With wsh
            .Copy after:=Worksheets(.Index)
            .Next.Name = Format(DateAdd("m", 1, DateValue(.Name & "1日")), "yyyy年m月")
            Set wsh = wsh.Next
        End With
    Next
End Sub

日付関連の関数もいろいろあるので覚えるといいと思います。

Answer 2

Sheets("2020年10月お試し").Copy After:=Sheets(Worksheets.Count)

後は、マクロの記録を動かしてVBAを自動作成して見てください。(参考URL)
https://teratail.com/questions/264447#reply-379107
p.s.
追記：依頼者のコードでも問題無い様な感じはしますが、文字列など違っているのかも知れません。
マクロの記録文字と見比べて下さい。

Answer 3

＞ActiveSheet.Name = "2020年"&i&"月"

文字間の空白が重要な意味を持ちます。
ActiveSheet.Name = "2020年" & i & "月"