Worksheet_FollowHyperlink - 获取超链接所在的单元格值

我的单元格中有一个值，当我双击它时，它会将我带到命名范围 Account_Number（位于另一个工作表上）并更新该值。

我的问题是我想调整下面的代码，以便它可以与 Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 事件一起使用。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If (ActiveCell.Column = 23 And Not ActiveCell.Value = "") Then   
    [Account_Number] = ActiveCell.Value
    Application.GoTo Reference:=[Account_Number]
End If

End Sub

例如，我想在包含值 4111 的单元格 J9 中放置一个超链接，当我单击该超链接时，它会将我带到另一个工作表中的命名范围，并将命名范围的值更新为 4111。

我不确定如何动态地将值分配给命名范围。有人可以告诉我这是否可能以及代码应该是什么吗？

谢谢

如果您创建了指向指定单元格的超链接，则将值从超链接源单元格复制到其目标的方法是：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveCell.Value = Target.Parent.Value
End Sub

您可能只想将此应用于特定命名单元格的超链接，例如：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  If Target.SubAddress = "Account_Number" Then
    ActiveCell.Value = Target.Parent.Value
  End If
End Sub