我的代码错误提示name作用于worksheet失效

戒烟限酒

Sub 表批量重命名()
Dim i As Long, newn As String, qzh As String, sh As Worksheet, dyg As String, wk As Workbook
Filename = Application.GetOpenFilename
If Filename = False Then Exit Sub Else: Set wk = Workbooks.Open(Filename)

dyg = InputBox("请在下方录存放新名称的单元格。" & vbCrLf & "如：A3")
qzh = InputBox("请在下方录工作表前要填文字。" & vbCrLf & "提醒")

For Each sh In Worksheets
k = sh.Range(dyg).Value
sh.Name = qzh & k
Next

End Sub
我的电脑上可以正常运行，为什么换一台电脑就提示name失效了。

戒烟限酒

vitrel 发表于 2021-9-30 07:31
楼主，您好！
2楼版主正解，没有附件不好测试。

非常感谢关注，问题原因找到了，用先工作表引用的内容中用[]这种特殊符号，导致无法重命名。

戒烟限酒

taller 发表于 2021-9-30 00:48
没有文件无从测试

非常感谢关注，问题原因找到了，用先工作表引用的内容中用[]这种特殊符号，导致无法重命名。

vitrel

楼主，您好！
2楼版主正解，没有附件不好测试。

您试试将
For Each sh In Worksheets
改为
For Each sh In wk.Worksheets

taller

没有文件无从测试