Vba to create hyperlinks for multiple sheets on one page

Hello,

I have a workbook with multiple sheets. On my sheet titled "ALL" from H2:H201 I want to create hyperlinks to sheets 1-200. Can anyone provide VBA or macro to do this. I would really appreciate the help as I don't want to create 200 hyperlinks individually. There are other sheets in the workbook but they are not numbered and have other names. I only need hyperlinks for the sheets labeled 1-200. The friendly link name can just be the sheet name.

Thanks for any help you can provide. I found the below VBA but don't know how to tailor it to my use.

Sub addHyperlinks()
i = 1
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> ActiveSheet.Name Then
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:= _
sh.Name & "!A1", TextToDisplay:=sh.Name
i = i + 1
End If
Next
End Sub

Try

Sub addHyperlinks()
Sheets("ALL").Activate
For N = 1 To 200
    ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & N + 1), Address:="", SubAddress:= _
    "'" & N & "'!A1", TextToDisplay:="" & N & ""
Next N
End Sub

Copy the code in to a module.
Go to the All sheet on a cell where you want the list to begin.
Run the macro.

It should insert hyperinks to all the sheets in a nice list