请问代码是如何实现的

看了下步骤组  貌似通过模拟鼠标点击实现，效率蛮高的，测试100张工作表很快就完成了，我通过VBA代码 循环添加超链接，测试了100张表，需要90多秒。

请问VBA代码可以用您的方式实现么，该如何写呢，目前写的方式如下。

Sub 返回目录1()
Dim zd As Integer, arr1(), sht As Worksheet
    t = Timer
    On Error Resume Next
    For Each sht In Worksheets
        If sht.Name = "1" Then   '如果有名称为 1 的工作表则执行循环
            zd = ThisWorkbook.Sheets.Count
            x = Worksheets("1").Index
            ReDim arr1(x To zd)
            For i = x To zd
                Sheets(i).Range("N3").Formula = "=HYPERLINK(""#目录!B3"",""返回目录"")"
                
            Next
        End If
    Next

End sub