Index tab not updating

[flier109]

Hi, I hope someone can help, I have two spreadsheets which have loads of tabs on them and I created an index tab to help manage them, however, new tabs I have created don't seem to want to show up on the index tab. This is the vba code used in each of them, which appears to have worked fine up until now.

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 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
M = M + 1
With wSheet
.Range("H1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Back to Index"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

 

[DanteAmor]

The macro works for me.
Are any features of new leaves hidden or protected?
What of the macro does not work?
Put the hyperlink in H1?
Put the name of the new sheet on the "index" sheet?