Re: Quickly Tab Selection

Giganews Newsgroups
Subject: Re: Quickly Tab Selection
Posted by:  Ron de Bruin (rondebru…
Date: Fri, 18 Jul 2008

Hi Mickky


For code you can use this

Sub SheetList_RDB()
    Dim ws
    Dim I As Long
    On Error Resume Next
    If Err.Number > 0 Then
        MsgBox "There is no workbook open"
        On Error GoTo 0
        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
            Application.CommandBars("Workbook Tabs").ShowPopup
        End If
    End If
End Sub


Regards Ron de Bruin

"Mickky" <mick…> wrote in message news:%23g2LeLJ6IHA.14…@TK2MSFTNGP05.phx.gbl...
>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



In response to

Quickly Tab Selection posted by Mickky on Fri, 18 Jul 2008