On Sat, 20 Feb 2010 13:28:03 -0800, ryguy7272
wrote:

Give this a go:
Sub GoToSheet()
myShts = ActiveWorkbook.Sheets.Count
For i = 1 To myShts
myList = myList & i & " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr
Next i
Dim mySht As Single
mySht = InputBox("Select sheet to go to." & vbCr & vbCr & myList)
Sheets(mySht).Select
End Sub


Or do it without code via a simple drop down list that references to a
table of your desired selections, which would be a hyperlink to the
selected sheet.