Excel 2016 vba错误1004-创建索引时应用程序定义或对象定义错误

我刚开始对excel工作簿有一个问题，我第一次使用excel 2010创建并使用了将近2年，它更新了我们的办公电脑，现在我安装了win10和office 2016

我正在使用的VBA代码：

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long

l = 1

    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With


    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
            l = l + 1
                With wSheet
                    .Range("A1").Name = "Start_" & wSheet.Index
                    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                    SubAddress:="Index", TextToDisplay:="Back to Index"
                End With

                Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
                SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
    Next wSheet

End Sub

Private子工作表\u Activate（）
将工作表设置为工作表
我和你一样长
l=1
和我一起
.列（1）.ClearContents
.单元格（1，1）=“索引”
.Cells（1,1）.Name=“索引”
以
对于工作表中的每个工作表
如果是wSheet.Name Me.Name然后
l=l+1
用wSheet
.Range（“A1”）.Name=“开始”&wSheet.Index
.Hyperlinks.Add锚定：=.Range（“A1”），地址：=“”_
子地址：=“索引”，文本显示：=“返回索引”
以
Me.Hyperlinks.Add锚点：=Me.Cells（l，1），地址：=“”_
子地址：=“开始”&wSheet.Index，TextToDisplay:=wSheet.Name
如果结束
下一页
端接头

当我打开调试程序时，以.Hyperlinks.Add锚点和子地址开头的行被标记为Yellow。。。你能帮助我吗？

---

谢谢…

编写

超链接。添加
按空格键并查看参数。可能其中一些是从2010年起改变的。然后根据更改调整代码：


或者在上面的行中写入
debug.print wSheet.Index
，检查是否有错误。（这里只是猜测。）
编写
超链接。添加
按空格键并查看参数。可能其中一些是从2010年起改变的。然后根据更改调整代码：


或者在上面的行中写入
debug.print wSheet.Index
，检查是否有错误。（这里只是猜测。）
我制作了一个包含多张工作表的空工作簿，VBA代码工作正常。。。我将看看我将如何继续。。。尽管如此，还是谢谢你。我制作了一个包含多张工作表的空工作簿，VBA代码运行良好。。。我将看看我将如何继续。。。谢谢你。