Here's a bit of code you can use. You can run the code directly or
assign it to a keyboard shortcut. When the prompt displays, enter the
number corresponding to the worksheet name.

Sub NavSheets()
Dim N As Long
Dim S As String
With ActiveWorkbook.Worksheets
For N = 1 To .Count
S = S & CStr(N) & " " & .Item(N).Name & vbCrLf
Next N
N = Application.InputBox(prompt:="Select A Sheet." & vbCrLf & _
S, Type:=1)
If N = 1 And N <= .Count Then
.Item(N).Select
End If
End With
End Sub

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Fri, 19 Dec 2008 15:56:07 -0800, Moises
wrote:

I have a file with more than 10 Sheet tabs, is there a short cut to go from
one sheet to another ?
The sheet tabs are in the same file.
Something similar to what we have in order to go from one cell to another
pressing the F5 key ?

Thanks