Ayuda con macro Navigate

[roberto]

Como puedo hacer para que esta macro funcione en cualquier libro que tenga activo y haga referencia a las hojas que tenga ese libro?


en el modulo ThisWorkbook:
Public Sub Navigate()
Dim ac As CommandBarButton
Set ac = Application.CommandBars.ActionControl
Sheets(ac.Caption).Select
Set ac = Nothing
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_Activate()
CreatePopUp
End Sub

en un modulo normal:

Sub CreatePopUp() ' creates the custom popup menu
Dim cb As CommandBar, i As Integer
Set cb = Application.CommandBars("Cell")
With cb
.Reset
For i = 1 To Sheets.Count
With .Controls.Add(Type:=msoControlButton)
.OnAction = "ThisWorkBook.Navigate"
.FaceId = 0
.Caption = Sheets(i).Name
.TooltipText = "Ir a esta hoja: " & Sheets(i).Name
End With
Next
End With
Set cb = Nothing
End Sub

 

[Greg Truby]

Si usted está trabajando en XL2002 (no sé sobre versiones anteriores) usted puede hacer un "click-derecho" con el cursor sobre las flechitas que aparecen a la izquierda de las etiquetas (tabs) de las hojas y automaticamente aparece un menu con todas las hojas disponibles. Si quiere duplicar esta función en una versión anterior de Excel, creo que sería necesario hacer un Class Module de tipo aplicación y poner programación que ejecuta durante eventos WB_Activate y WB_Deactivate.

Saludos,