IR A UNA HOJA POR MEDIO DE MENU

METODO 1

Sub Goanysheet()

myShtees = ActiveWorkbook.Sheets.Count

For i = 1 To myShtees

myList = myList & i & " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr

Next i

Dim mihojita As Single

mihojita = InputBox("Selecciones la hoja a la que desea ir." & vbCr & vbCr & myList)

Sheets( myShtees ).Select

End Sub

METODO 2 ******para mi el mejor******

Sub ChooseSheet()

Dim ws As Worksheet

Application.CommandBars("Workbook Tabs").ShowPopup

Set ws = ActiveSheet

End Sub