Crear un índice de hojas en libro Exel

[lupirata]

Alguien que me ayude a perfecccionar esto:

El siguiente código deberia crear automáticamente un índice con vínculos a todas las hojas que estén incluidas en el libro.

pero no logro hecerlo funcionar, como lo corrijo?

Private Sub Worksheet_Activate ( )
Dim wSheet As Worksheet
Dim L As Long
T . - 1
With Me
. columns (1) . Cf earContents
. Cel ts (1, 1) = ,, ÍNDTCE i l
. c e 1 1 s ( 1 , 1) .Name = " I n d i c e "
Eno watn
For Each wsheet In worksheets
If wsheet.Name <>Me.Name Then
L = L + l -
With t¡rsheet
.Range("A1 ').Name = " I n i c i o i l & ! ¡ / s h e e t . I n d e x
. H y p e r l i n k s . A d d Anchor:=.Range ( t r A 1 " ) , Address: =" " , -
subAddresst=rri¡¿i..tr, TextToDisplav:="vofver al índice"
F;nd $¡ 1t:n
Me.Hyperlinks.Add Anchor:=Me.Cefls (1, 1), A d d r e s s : = " " , -
SubAddress:=nIn'c o" & wsheet. Index, TextToDisplay:=wsheet.Name
EJNO I I
Next \rsheeE
.E;Nd SUjf