Indexing Macro with Hyperlink

[JVID]

Hey All,

Using 2007 Excel-

This macro is not working. It makes an index of every single sheet then hyper links it on the index.

Does anyone have some insight or a better code?

Private Sub indexer()
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

Thanks,

John

 

[RobertCotton]

Fantastic ! Thank You !

 

[JoeMo]

Fantastic ! Thank You !

You are welcome. Thanks for the reply.