macro creates new sheet and names it, need to create hyperlink to new sheet on main sheet

I have a workbook I've made that takes a sheet used as a template, copies it and creates a new sheet, and names the new sheet based on the input of a user form textbox. It also takes that input and places it in a cell ("A7") on the main page (page named 'Main')

I need to then create a hyperlink in that cell on "Main" for the new sheet. The new sheet name will always be on sheet("Main").range("A7")

Everything works fine except this piece of code:

link = """Name & "!A1""

 Sheets("Main").Range("A7").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        link, TextToDisplay:=Name

The subaddress needs to read (including quotes, and 'name' is the sheet name which will be different every time)
"name!A1"

*to answer questions before they're asked
-The macro will be used to create several sheets
-it will be updated often, and new sheets will be created via macro so manually creating hyperlinks to the sheets isn't optimal

here are the relevant lines of code:

Dim Name As String
Dim link As Long

Name = Me.TextBox1.Text
    Sheets("main").Activate
    Sheets("Main").Rows("7:7").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Sheets("Template").Select

    Sheets("Template").Copy Before:=Sheets(2)
    
    ActiveSheet.Name = Name

Sheets("Main").Range("A7").Value = Name

'something is wrong below this

link = """Name & "!A1""

 Sheets("Main").Range("A7").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        link, TextToDisplay:=Name

Don't use variables that are proprietary to excel like "Name"
Change references as required.

Sub Maybe()
Dim a As String
a = Sheets("Sheet1").Range("A1").Value    '<---- You use a TextBox value here. Maybe use an InputBox instead.
    Sheets("Sheet1").Copy Before:=Sheets(2)    '<----- Change Sheet names and references as required
    ActiveSheet.Name = a
Sheets("Sheet1").Range("A7").Value = a
Sheets("Sheet1").Hyperlinks.Add Anchor:=Sheets("Sheet1").Range("A7"), Address:="", _
SubAddress:="'" & a & "'" & "!A1", TextToDisplay:=a
End Sub

Have a quick read here.
https://docs.microsoft.com/en-us/off...c-naming-rules