链接到工作表

Question

我编写了一个在选择范围时链接到网站的事件：

    If Selection.Name = Range("D2").Value Then
        ActiveWorkbook.FollowHyperlink Address:="http://www.google.com", _
        NewWindow:=True
    End If

如何将链接指向活动工作簿中的其他工作表？我尝试将地址修改为：

Address:=ActiveWorkbook.Sheets("Sheet2").Range("A1").Value

然而，这不起作用。有什么想法吗？

Answer 1

正如我在评论中提到的，您可以使用：

Application.Goto ActiveWorkbook.Sheets("Sheet2").Range("A1")

或者，如果您仍想使用FollowHyperlink方法：

With ActiveWorkbook
    .FollowHyperlink Address:=.Name, _
                     SubAddress:=.Sheets("Sheet2").Range("A1").Address(External:=True)
End With

Answer 2

选择工作表，然后选择所需范围;

With Sheets("Sheet2")
    .Select
    .Range("A1").Select
End With