Поэтому я создаю новый лист таким образом:
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
Это дает мне лист с названием что-то вроде: "21 мая - Сэм Смит"
Позже в конце кода я хочу перейти по гиперссылке на этот новый лист с другого листа, поэтому я использую это:
ActiveSheet.Hyperlinks.Add Anchor:=ws.Range("A" & LastRow), Address:="", SubAddress:=Naming & "!A1", TextToDisplay:=ProjectNumber
Все это работает, но когда я нажимаю на гиперссылку, я получаю "Ссылка недействительна".
Я никак не могу понять, почему гиперссылка не ссылается на мой новый лист.
Любая помощь будет признательна,
Спасибо,
Сьюзи