Macro needed to create summary tab of all worksheet names & then hyperlink to them

[gkisystems]

I have a macro that inserts a new tab in my workbook and lists the name of all the other tabs within the same workbook. I like using this macro to create a summary sheet of all the tabs within my workbook, however how do I modify this macro so that each of the tab names on my summary sheet turn into blue hyperlinks to each of the tabs (go to cell A1 in each tab)?

Here is the existing macro I have now:

Sub SheetNames()
'Adds a new worksheet
'Inserts all worksheet names on the new sheet
Dim newsheet
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)
newsheet.Name = "SheetNames"
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i

End Sub

 

[VoG]

See if you can adapt this

Sub IDX()
Dim ws As Worksheet, i As Integer
Worksheets.Add(before:=Worksheets(1)).Name = "Index"
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Index" Then
        i = i + 1
        Sheets("Index").Range("A" & i).Value = ws.Name
        Sheets("Index").Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
    End If
Next ws
Sheets("Index").Columns("A").AutoFit
End Sub