I once saw somewhere a toolbar addin for tabs. It was something that would
give a dropdown list of all tabs in a workbook. Not sure if I saw it
directly in a message (I have searched, and couldn't find), or if it was a
link to someone's site. Anyone know what I'm talking about and could direct
me?

Also, if anyone has some good pages for shareware addins that are nice,
would love to peruse. I know that andypope.info was one I found nice for
charting purposes, but haven't really found other, general purpose ones.

Thanks on both issues.
--
Boris

Boris

There are many different versions of VBA code used that can give you a
selectable list of sheet tabs.

You could place that code in an Add-in if you chose to do so.

I like Bob Phillips' browsesheets macro.

I have tested it with up to 150 sheets in a workbook.

Sub BrowseSheets()
Const nPerColumn As Long = 38 'number of items per column
Const nWidth As Long = 13 'width of each letter
Const nHeight As Long = 18 'height of each row
Const sID As String = "___SheetGoto" 'name of dialog sheet
Const kCaption As String = " Select sheet to goto"
'dialog caption
Dim i As Long
Dim TopPos As Long
Dim iBooks As Long
Dim cCols As Long
Dim cLetters As Long
Dim cMaxLetters As Long
Dim cLeft As Long
Dim thisDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim cb As OptionButton
Application.ScreenUpdating = False
If ActiveWorkbook.ProtectStructure Then
MsgBox "Workbook is protected.", vbCritical
Exit Sub
End If
On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.DialogSheets(sID).Delete
Application.DisplayAlerts = True
On Error GoTo 0
Set CurrentSheet = ActiveSheet
Set thisDlg = ActiveWorkbook.DialogSheets.Add
With thisDlg
.Name = sID
.Visible = xlSheetHidden
'sets variables for positioning on dialog
iBooks = 0
cCols = 0
cMaxLetters = 0
cLeft = 78
TopPos = 40
For i = 1 To ActiveWorkbook.Worksheets.Count
If i Mod nPerColumn = 1 Then
cCols = cCols + 1
TopPos = 40
cLeft = cLeft + (cMaxLetters * nWidth)
cMaxLetters = 0
End If
Set CurrentSheet = ActiveWorkbook.Worksheets(i)
cLetters = Len(CurrentSheet.Name)
If cLetters cMaxLetters Then
cMaxLetters = cLetters
End If
iBooks = iBooks + 1
.OptionButtons.Add cLeft, TopPos, cLetters * nWidth, 16.5
.OptionButtons(iBooks).text = _
ActiveWorkbook.Worksheets(iBooks).Name
TopPos = TopPos + 13
Next i
.Buttons.Left = cLeft + (cMaxLetters * nWidth) + 24
CurrentSheet.Activate
With .DialogFrame
.Height = Application.Max(68, _
Application.Min(iBooks, nPerColumn) * nHeight + 10)
.Width = cLeft + (cMaxLetters * nWidth) + 24
.Caption = kCaption
End With
.Buttons("Button 2").BringToFront
.Buttons("Button 3").BringToFront
Application.ScreenUpdating = True
If .Show Then
For Each cb In thisDlg.OptionButtons
If cb.Value = xlOn Then
ActiveWorkbook.Worksheets(cb.Caption).Select
Exit For
End If
Next cb
Else
MsgBox "Nothing selected"
End If
Application.DisplayAlerts = False
.Delete
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 29 Nov 2006 06:37:01 -0800, BorisS
wrote:

I once saw somewhere a toolbar addin for tabs. It was something that would
give a dropdown list of all tabs in a workbook. Not sure if I saw it
directly in a message (I have searched, and couldn't find), or if it was a
link to someone's site. Anyone know what I'm talking about and could direct
me?

Also, if anyone has some good pages for shareware addins that are nice,
would love to peruse. I know that andypope.info was one I found nice for
charting purposes, but haven't really found other, general purpose ones.

Thanks on both issues.

Gord Dibben MS Excel MVP

Could it be this one from Debra Dalgleish's site:
http://contextures.com/xlToolbar01.html

BorisS wrote:

I once saw somewhere a toolbar addin for tabs. It was something that would
give a dropdown list of all tabs in a workbook. Not sure if I saw it
directly in a message (I have searched, and couldn't find), or if it was a
link to someone's site. Anyone know what I'm talking about and could direct
me?

Also, if anyone has some good pages for shareware addins that are nice,
would love to peruse. I know that andypope.info was one I found nice for
charting purposes, but haven't really found other, general purpose ones.

Thanks on both issues.
--
Boris

--

Dave Peterson