VBA新增Worksheet后如何正确重命名（重命名无报错不生效）

Worksheet.Copy 方法没有返回值，你代码中Set shNew = Sheets(3).copy(after:=Sheets(Sheets.Count)) 这行不会把新复制生成的工作表赋值给shNew变量，此时shNew实际指向的是被复制的源工作表Sheets(3)。后续执行重命名操作时，修改的是源工作表的名称（如果源表名称和你要改的目标名称一致，就不会有任何变化，也不会触发报错），新生成的工作表自然不会被重命名。

工作表执行Copy操作后，新生成的工作表会自动处于激活状态，且因为你指定了复制到所有工作表的末尾，有两种可靠的方式拿到新表对象再重命名：

• 方法1：通过活动工作表获取新表对象

Dim shNew As Worksheet
' 执行复制操作
Sheets(3).Copy After:=Sheets(Sheets.Count)
' 复制完成后新表自动激活，直接赋值给变量
Set shNew = ActiveSheet
' 执行重命名
shNew.Name = Sheets(2).Cells(1, 2).Value

• 方法2：通过位置获取新表对象

Dim shNew As Worksheet
' 执行复制操作
Sheets(3).Copy After:=Sheets(Sheets.Count)
' 新表在所有工作表最后一位，直接取最后一个表即可
Set shNew = Sheets(Sheets.Count)
' 执行重命名
shNew.Name = Sheets(2).Cells(1, 2).Value

重命名操作前建议增加校验，避免触发运行时错误：

• 确认Sheets(2).Cells(1,2)的取值不为空，长度不超过31个字符，且不包含\、/、?、*、[、]、:这些工作表命名禁用的特殊字符
• 确认当前工作簿内不存在和目标名称重名的工作表

内容的提问来源于stack exchange，提问作者Weizai Weizaitan