Re: Quickly Tab Selection

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

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" <mick…@ntlworld.com> 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

Replies

None

In response to

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