Adding an Index or TOC sheet in Excel 2010

[1953CAG]

I have a workbook that has about 40 worksheets and it is really difficult to move around quickly and easily. The added complication is that whilst I have created the workbook, and will fix anything that goes awry with it, on a Windows laptop, the end users all use Macs, so I need to make sure that the functionality works in a Mac.

I have tried the right click on the bottom right-hand scroll button, and this works on a Windows laptop, but the users are having trouble with this on the Mac - I assume it is the right click that is the issue.

I have tried several bits of code and the one that works the best is as follows:-

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("H1").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

However the users get an error message, which I have attached.

Does anyone know why this might be?