Links hacia las hojas de un cuaderno

Hola amigos. Tengo un libro-plantilla con 23 hojas y muchas macro y formulas.
Para llegar con rapidez he copiado una macro que hace en la Hoja1 (A9:A33)
una lista con los nombres respectivos de las hojas, siendo cada nombre un
enlace a la respectiva hoja. Aqui esta el codigo respectivo, pero al
ejecutarlo desde un modulo me indica que tiene un error de sintasis,
exactamente en la linea:

wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
"", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name

Podrian ayudarme a encontrar el error?

El codigo completo es
Sub Links_hojas()
Dim wrbLibro As Workbook
Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
Dim intFila, intColumna As Integer
Set wrbLibro = ActiveWorkbook
Set wrsHojaActiva = ActiveSheet
'en que fila/columna empezar la lista
intFila = 9
intColumna = 1
'el bucle repasa todas las hojas
For Each wsHoja In wrbLibro.Worksheets
'para excluir hoja de los links
If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
'crear links
If wsHoja.Name <> wrsHojaActiva.Name Then

wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
"", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name

intFila = intFila + 1
End If
ProxHoja:
Next wsHoja
End Sub


Slds
Oscar M

Tengo un libro-plantilla con 23 hojas y muchas macro y formulas.
Para llegar con rapidez he copiado una macro que hace en la Hoja1 (A9:A33)
una lista con los nombres respectivos de las hojas, siendo cada nombre un enlace a la respectiva hoja.
Aqui esta el codigo respectivo, pero al ejecutarlo desde un modulo me indica que tiene un error de sintasis
exactamente en la linea:
wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
"", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name

Podrian ayudarme a encontrar el error?

El codigo completo es
Sub Links_hojas()
Dim wrbLibro As Workbook
Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
Dim intFila, intColumna As Integer
Set wrbLibro = ActiveWorkbook
Set wrsHojaActiva = ActiveSheet
'en que fila/columna empezar la lista
intFila = 9
intColumna = 1
'el bucle repasa todas las hojas
For Each wsHoja In wrbLibro.Worksheets
'para excluir hoja de los links
If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
'crear links
If wsHoja.Name <> wrsHojaActiva.Name Then
wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
"", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name
intFila = intFila + 1
End If
ProxHoja:
Next wsHoja
End Sub

hola, Oscar !

> Tengo un libro-plantilla con 23 hojas y muchas macro y formulas.
> Para llegar con rapidez he copiado una macro que hace en la Hoja1 (A9:A33)
> una lista con los nombres respectivos de las hojas, siendo cada nombre un enlace a la respectiva hoja.
> Aqui esta el codigo respectivo, pero al ejecutarlo desde un modulo me indica que tiene un error de sintasis
> exactamente en la linea:
> wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
> "", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name
>
> Podrian ayudarme a encontrar el error?

op1: revisa estas conversaciones: http://tinyurl.com/yf7njpv

op2: si le tienes "flojerilla" a las opciones (clic-secundario) en la barra de desplazamiento horizontal (parte baja-izquierda)
prueba con una macro +/- como la siguiente (a la que puedes asignarle un atajo de tecladoI

Sub CambiarHoja()
With Application.CommandBars("workbook tabs").Controls(16)
If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup
End With
End Sub

saludos,
hector.

__ el codigo expuesto __
> El codigo completo es
> Sub Links_hojas()
> Dim wrbLibro As Workbook
> Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
> Dim intFila, intColumna As Integer
> Set wrbLibro = ActiveWorkbook
> Set wrsHojaActiva = ActiveSheet
> 'en que fila/columna empezar la lista
> intFila = 9
> intColumna = 1
> 'el bucle repasa todas las hojas
> For Each wsHoja In wrbLibro.Worksheets
> 'para excluir hoja de los links
> If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
> 'crear links
> If wsHoja.Name <> wrsHojaActiva.Name Then
> wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna), _
> "", SubAddress:="'" & wsHoja.Name & "'!A1", TextToDisplay:=wsHoja.Name
> intFila = intFila + 1
> End If
> ProxHoja:
> Next wsHoja
> End Sub


.