我来帮你捋捋这个超链接代码的问题哈，你遇到的失效情况主要是几个细节没处理好，咱们一步步来修正：

你的原代码里存在三个关键问题，导致超链接无法正常工作：

• 工作表引用笔误：你写的Sheets("c")应该是"Summary-Champion Specific"的误写吧？这个错误会直接让代码找不到目标操作表。
• Cells未绑定工作表：Range(Cells(P1, P), Cells(P1, P))里的Cells没有明确归属的工作表，如果当前激活的不是你要操作的表，Excel会搞混引用的单元格，直接抛出错误。
• SubAddress格式错误：同一工作簿内的超链接不需要用External:=True，这个参数会生成外部文件的引用格式，反而会导致内部跳转失效。

下面是调整后的代码，我标注了关键修改点，方便你理解：

Dim targetSheet As Worksheet
Dim hiddenSheet As Worksheet

' 先定义工作表对象，避免硬编码出错，可读性也更高
Set targetSheet = ThisWorkbook.Sheets("Summary-Champion Specific")
Set hiddenSheet = ThisWorkbook.Sheets("Hidden Sheet")

' 添加超链接
targetSheet.Hyperlinks.Add _
    Anchor:=targetSheet.Range(targetSheet.Cells(P1, P), targetSheet.Cells(P1, P)), _
    Address:="", _
    SubAddress:="'" & hiddenSheet.Name & "'!" & hiddenSheet.Cells(P1, P).Address(False, False)

• 明确工作表对象：用变量指代两个工作表，不仅避免了笔误风险，也让代码逻辑更清晰。
• 给Cells绑定父工作表：所有Cells都加上了所属工作表的前缀（比如targetSheet.Cells），确保Excel能精准定位到目标单元格，不会受当前激活表的影响。
• SubAddress用内部跳转格式：同一工作簿内的超链接要写成"'工作表名'!单元格地址"的格式，代码里用hiddenSheet.Name动态获取表名，还处理了表名带空格或特殊字符的情况（自动加单引号）。

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