menus desplegables con hipervinculos

[abrahamvj]

Y bueno, recomiendo mucha lectura de VBA, pero, de todos modos, pega esto en un modulo "normal" y corre la macro "Crearmenu":

Sub Crearmenu()

Dim Hoja As Worksheet

On Error Resume Next

CommandBars("Menu de hojas").Delete

With CommandBars.Add(Name:="Menu de hojas")

With .Controls.Add(Type:=msoControlButton)
.OnAction = "Abraham"
.FaceId = 59
.TooltipText = "Acerca de..."
End With

With .Controls.Add(Type:=msoControlDropdown)

For Each Hoja In Worksheets
.AddItem Hoja.Name
.OnAction = "Irahoja"
.TooltipText = "Seleccione hoja"
Next

End With

.Visible = True

End With

End Sub
Sub Irahoja()

Dim strnombrehoja$

With CommandBars.ActionControl
strnombrehoja$ = .List(.ListIndex)
End With

Sheets(strnombrehoja$).Select

End Sub

Sub Abraham()
MsgBox "Hay que leer sobre VBA", vbInformation + vbOKOnly, "Abraham Valencia"
End Sub