Sub CreateIndex()

Dim last_row, item_no As Integer
Dim myCell As Range
Dim ws As Worksheet
Dim index_ws As Worksheet
     

    Set index_ws = ThisWorkbook.Sheets("Index")
    Set myCell = ActiveCell

    item_no = 1
     
    With index_ws
         
        myCell.Value = "Item"
        myCell.Offset(0, 1).Value = "SheetName"
        last_row = myCell.Row + 1
          
        For Each ws In ThisWorkbook.Sheets
            If ws.Name <> .Name Then
                .Cells(last_row, myCell.Column).Value = item_no
                .Hyperlinks.Add Cells(last_row, myCell.Column + 1), "", _
                    "'" & ws.Name & "'!A1", , ws.Name
                item_no = item_no + 1
                last_row = last_row + 1
            End If
        Next ws
         

    End With
    
    Cells.EntireColumn.AutoFit ' autofit column
End Sub