Tak já jsem vytvořit nový list takto:
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
To mi dává Listu s názvem něco jako: "Může-21 - Sam Smith"
Později na konci kódu chci, aby hypertextový odkaz na ten nový list z jiného listu, takže jsem tento:
ActiveSheet.Hyperlinks.Add Anchor:=ws.Range("A" & LastRow), Address:="", SubAddress:=Naming & "!A1", TextToDisplay:=ProjectNumber
To všechno funguje, ale když kliknu na ten odkaz jsem se "Odkaz není platný".
Nemůžu za život mi zjistit, proč odkaz není odkazování na můj nový list.
Jakýkoliv pomoci chtěl bych být ocenil,
Díky,
Suzie