无法打开工作表超链接vba

我正试图用vba通过超链接打开工作簿的工作表。 跟踪网页或文件夹的链接没有问题，但我没有成功获取工作表

谁能告诉我为什么

代码：

Sub MacroOpen() 

If ActiveCell.Hyperlinks.Count > 0 Then 

ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If 

End Sub

---

非常感谢

这样做没有问题

您指向另一页的url中肯定有一点错误。语法是SheetName！柱状亚细辛

所以如果你的工作表名是sheet1，你想转到单元格A:3 它的床单2！A3

下面是将正确的超链接添加到工作表并导航到该工作表的完整代码

Option Explicit
Sub test()
    Sheets("Blad1").Hyperlinks.Add Sheets("Blad1").Cells(2, 3), "", Sheets("Blad2").Name & "!A3", "", "my link"
    Cells(2, 3).Select

    If ActiveCell.Hyperlinks.Count > 0 Then
       ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End If
End Sub

---

这是瑞典excel格式，因此其工作表名称为blad1和blad2

为什么不

工作表（“工作表名称”）。是否激活

？您可以始终将其涂成蓝色并加下划线，使其看起来像一个超链接，因为我必须跟随许多超链接在每个链接的工作表中添加数据