链接到工作表

我已经编码一个事件，链接到一个网站时，一个范围被选中：

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

select表单，然后select所需范围;

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