Hi Mickky
See
http://www.contextures.com/xlToolbar01.html
For code you can use this
Sub SheetList_RDB()
Dim ws
Dim I As Long
On Error Resume Next
ActiveSheet.Select
If Err.Number 0 Then
MsgBox "There is no workbook open"
Err.Clear
On Error GoTo 0
Else
For Each ws In ActiveWorkbook.Sheets
If ws.Visible = True Then I = I + 1
Next ws
If I 16 Then
Application.CommandBars("Workbook Tabs").Controls(16).Execute
Else
Application.CommandBars("Workbook Tabs").ShowPopup
End If
End If
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Mickky" wrote in message ...
I am using Excel 2003 and i wondered if there was a way to quickly select
the tab i needed within a workbook where there are over 40 tabs.
I appreciate i can right click on the scroll arrows but this opens up a box
whereby i can view only a small seelction of the tabs...i then have to
select more sheets and then scroll to slect the one i require.
Is there a way that the entire list is viewable and therefore quicker?
Thanks in advance
Mick