命名表和创建超链接答案

【问题标题】：Naming Sheets & Creating Hyperlinks命名表和创建超链接
【发布时间】：2021-12-29 18:42:42
【问题描述】：

所以我正在创建一个新工作表：

Dim Naming As String
Dim ProjectNumber As String
Dim ws As Worksheet

ThisWorkbook.Sheets("Project Template").Copy After:=Sheets(Sheets.Count)
Set ws = ActiveSheet

Naming = CallLaunched.Value & " - " & ProjectLead.Value

ws.Name = Naming

这给了我一张名为“May-21 - Sam Smith”的表格

稍后在代码的末尾，我想从另一个工作表超链接到该新工作表，所以我使用这个：

ActiveSheet.Hyperlinks.Add Anchor:=ws.Range("A" & LastRow), Address:="", SubAddress:=Naming & "!A1", TextToDisplay:=ProjectNumber

一切正常，但是当我单击超链接时，我得到“参考无效”。

我一生都无法弄清楚为什么超链接没有引用我的新工作表。

任何帮助将不胜感激，

谢谢，

苏西

【问题讨论】：

标签： excel vba hyperlink

【解决方案1】：

带空格的工作表名称需要引号：

SubAddress:= "'" & Naming & "'!A1"

【讨论】：