求助：VBA为多工作表添加目录超链接仅对活动表生效

你的代码在循环过程中始终没有切换到目标工作表，一直对初始的活动工作表重复操作，所以只有当前活动表添加了超链接，其他工作表完全没被处理。

Sub AddContentLinkToSheets()
    Dim WS_Count As Integer
    Dim I As Integer
    Dim targetWS As Worksheet
    
    WS_Count = ActiveWorkbook.Worksheets.Count
    
    For I = 1 To WS_Count
        Set targetWS = ActiveWorkbook.Worksheets(I)
        ' 跳过目录表本身，避免重复添加
        If targetWS.Name <> "CONTENTS" Then
            ' 直接在目标工作表的G1单元格添加超链接，无需选中操作
            targetWS.Hyperlinks.Add _
                Anchor:=targetWS.Range("G1"), _
                Address:="", _
                SubAddress:="CONTENTS!A1", _
                TextToDisplay:="返回目录" ' 可根据需求修改显示文本
        End If
    Next I
End Sub

• 用Set targetWS = ActiveWorkbook.Worksheets(I)直接引用循环到的工作表，替代依赖ActiveSheet的操作，这是解决问题的核心
• 去掉了低效且易出错的Select操作，直接通过工作表对象定位目标单元格
• 添加判断条件跳过CONTENTS表，避免在目录表上添加返回自身的冗余超链接
• 将显示文本改为更直观的“返回目录”，可根据实际需求调整

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