问VBA新增sheet后在当次运行中只能按名字调用，不能按sheet顺序调用？

在新建工作簿里面运行也是一样的问题，能创建三个新的sheet，但是后面的重命名只有工作簿原有的第一个sheet1能改成111，其他新建的会报错，忽略错误继续运行也没反应。

测试1：手动创建的sheet2能重命名成功

测试2：运行第一次没反应再运行第二次，再新建三个sheet的同时第一次运行新建的3个sheet重命名成功

测试3：把sheet2.name改成sheets("sheet2").name重命名能成功

总之就是不能一次成功，请问有解决办法吗

Sub 重命名()
Dim n As Long, i As Long
n = 3
For i = 1 To n
Worksheets.Add after:=Worksheets(Worksheets.Count)
Next i
On Error Resume Next
Sheet1.Name = "111"
Sheet2.Name = "222"
Sheet3.Name = "333"
Sheet4.Name = "444"
End Sub