Ir a hojas combobox

Tengo esta macro que baje de esta pagina, me habré un indice de hojas en complementos

Me podrían ayudar para que esto lo hiciera desde cada hoja en lugar de complementos, lo anterior es que manejo cuatro tipos de información en un libro y quisiera un combobox por cada tipo ademas que la lista no seria tan grande para cada tipo ya que manejo mas de 1000 hojas

gracias de antemano y saludos

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