Auto Worksheet index

[Pearso]

Hi all

yesterday i had some help with a macro to create a list of references. I would like to take this one step further an make each name in the list a hyperlink to the worksheet. The code for the hyper link i con't seem to get it to work. Does anyone have any ideas

Public Sub ListWrkShts()
 
    Dim i As Integer
    Dim x As Integer
    Dim sSheet As String
    Dim oWB As Workbook
    
    Range("B1").Value = "Worksheets List"
 
    x = 2
    Set oWB = ActiveWorkbook
    For i = 2 To oWB.Sheets.Count
        oWB.Sheets(1).Cells(x, 2).Value = oWB.Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=oWB.Sheets(1).Cells(x, 2),   Address:="", SubAddress:= _
        oWB.Sheets(i).Name, TextToDisplay:= _
        oWB.Sheets(i).Name
        x = x + 1
    Next
    Set oWB = Nothing
    
    Sort
    Range("A1").Select
    
End Sub

Can anyone help