命名表和创建超链接

Question

所以我正在创建一个新的 sheet 因此：

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

这给了我一个 Sheet 类似的名称：“May-21 - Sam Smith”

稍后在代码末尾我想从另一个 sheet 超链接到那个新 sheet 所以我使用这个：

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

一切正常，但是当我点击超链接时，我得到“引用无效”。

我一辈子都弄不明白为什么超链接没有引用我的新 sheet。

如有任何帮助，我们将不胜感激，

谢谢，

苏西

Answer 1

Sheet 带空格的名称需要引号：

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

命名表和创建超链接

Naming Sheets & Creating Hyperlinks

excel

vba

hyperlink