Crear indice de diferentes ubicaciones en una misma hoja

[Ricardo_12]

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.