Crear indice de diferentes ubicaciones en una misma hoja

Buenos dias,

Estoy tratando de crear una macro que me produzca un indice que me linkee ubicaciones diferentes en una misma hoja.

No logro que funcione y en internet encuentro ejemplos pero solo linkeando una misma ubicacion en diferentes hojas.

En base a un ejemplo que crea un indice de diferentes hojas he estado tratando de realizar la macro pero no lo puedo lograr.

El codigo es el siguiente:

Sub Crear_Indice_Hojas()

Fila = 1

For Each Hoja In Worksheets

' Agregar vinculo a cada hoja del mes

If Hoja.Name <> "Indice" Then

With Worksheets("Indice")

.Hyperlinks.Add Anchor:=.Cells(Fila, 1), Address:="", _

SubAddress:=Hoja.Name & "!A1", TextToDisplay:=Hoja.Name

'Agregar vinculo de retorno a la hoja indice

End With

With Worksheets(Hoja.Name)

.Hyperlinks.Add Anchor:=.Cells(1, 2), Address:="", _

SubAddress:="Indice!A1", TextToDisplay:="Indice"

End With

End If

Fila = Fila + 1

Next

End Sub

Gracias por la ayuda.