Hyperlink to sheets

[jiddings]

The following code lists the sheet names in a workbook starting at A6 on the "Summary" sheet.
How do I modify the code to change the listed sheet names to hyperlink to each of the named sheets?

Sub InsertNames()
Worksheets("Summary").Unprotect
Dim N As String
    Dim i As Long, r As Long
    
    For i = 1 To Worksheets.Count
        N = Worksheets(i).Name
        If N <> "Summary" And N <> "Master" And N <> "Names" Then
            r = r + 1
            ActiveSheet.Cells(r + 5, 1).Value = N
        End If
    Next i
Worksheets("Summary").Protect
Worksheets("Summary").Activate
Range("B1").Select
Application.ScreenUpdating = True
End Sub

 

[daverunt]

Try

r = r + 1
           ActiveSheet.Cells(r + 5, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), Address:="", _
           SubAddress:="'" & N & "'!A1", TextToDisplay:=N
End If

 

[jiddings]

Thanks daverunt,
It works great, except I had to modify the VBA to the following to get the listing to start at Cell A6.

I'm new to adding hyperlinks into VBA. Where can I read more (with VBA examples) on the use of hyperlinks in VBA and the correct context usage?

Thanks again for your help.

ActiveSheet.Cells(r + 5, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(r + 5, 1), Address:="", _
           SubAddress:="'" & N & "'!A1", TextToDisplay:=N

 

[daverunt]

Glad you got it working.
I don't know of any particular source of hyperlink use.
There are many examples on this site.

I would decide what I needed to do first then look for the different ways to do it via Google.