Create hyperlinked index of sheets

[sujittalukde]

Can a macro be provided to create a index of list of all the sheets in the workbook with hyperlink and also other sheets should have hyoerlink" back to index" ?

 

[sujittalukde]

I am using the following code (found during the net search)

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1

    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
            l = l + 1
                With wSheet
                    .Range("A1").Name = "Start " & wSheet.Index
                    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                    SubAddress:="Index", TextToDisplay:="Back to Index"
                End With
                
                Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
                SubAddress:="Start " & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
    Next wSheet
End Sub

But it is generating error. How this can be fixed?

 

[sujittalukde]

OK found the reply

 

[Enviroseller]

Where did you find a reply?