नामकरण चादरें और हाइपरलिंक बनाना

इसलिए मैं निर्माण कर रहा हूँ एक नई चादर thusly:

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

यह सब काम करता है, लेकिन जब मैं हाइपरलिंक पर क्लिक करें मैं "संदर्भ मान्य नहीं है".

मैं नहीं मेरे जीवन के लिए बाहर आंकड़ा क्यों हाइपरलिंक नहीं है को संदर्भित मेरी नई शीट.

किसी भी मदद की सराहना की जाएगी,

धन्यवाद,

Suzie