Hyperlinks dazufügen

Private Sub CommandButton1_Click()
Dim i As Long, lngLetzte As Long
Dim AnzWS As Long
With Sheets("Index A")
lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, Rows.  _
_
Count)
End With
If lngLetzte >= 4 Then
Sheets("Index A").Range("B4:B" & lngLetzte).ClearContents
End If
For i = 1 To Sheets.Count
If Not Sheets(i).Name Like "Index*" Then
If Sheets(i).Name Like "A*" Or Sheets(i).Name Like "a*" Then
If Sheets("Index A").Range("B4") = "" Then
Sheets("Index A").Range("B4") = Sheets(i).Name
Else
Sheets("Index A").Cells(65536, 2).End(xlUp).Offset(1, 0) = Sheets(i).Name
End If
End If
End If
Next i
Sheets("Index A").Select
End Sub

Wie kann ich diesen Code erweitern / anpassen, dass mir die gefundenen Datensätze gleich noch mittels einem Hyperlink auf das entsprechende Tabellenblatt versehen werden ?