Hyperlink einbauen

ich möchte vom 1. Tabellenblatt (Inhaltsverzeichnis) einen Hyperlink zu den jeweiligen Tabellenblättern erstellen, hat jemand eine tip wie man das am besten hinkriegt.
Meine VBA-Kenntnisse sind leider sehr bescheiden
Folgenden Code hab ich schon vorgegeben:

Sub Blattlist()
Dim wks As Worksheet
Dim i As Integer
Set wks = Worksheets("Inhaltsverzeichnis")
For i = 2 To Worksheets.Count
If Worksheets(i).Name <> wks.Name Then
'Die 1,2,3 in den Cells steht für die Spalte
'1 = A, 2 = B, 3 = C usw.
wks.Cells(i, 1) = Worksheets(i).Name
wks.Cells(i, 2) = Worksheets(i).Range("A10")
wks.Cells(i, 3) = Worksheets(i).Range("A6")
wks.Cells(i, 4) = Worksheets(i).Range("A2")
End If
Next i
End Sub

Wäre sehr dankbar für jede Hilfe...

Mfg
Bjoern