Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheet Tabs
I have a Spreadsheet with 64 Worksheets in it, is it
possible to tile the tabs on rows at the bottom instead of 1 long set of tabs |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheet Tabs
Nigel
No, but you can right click the sheet navigation buttons (bottom left) and select more sheets... -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England HIS "Nigel Bennett" wrote in message ... I have a Spreadsheet with 64 Worksheets in it, is it possible to tile the tabs on rows at the bottom instead of 1 long set of tabs |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheet Tabs
Hi Nigel,
You might want to alphabetize you worksheet tabs so that you can find the one you are looking for quickly. SortAllSheets -- sort sheet tabs (#sortallsheets) http://www.mvps.org/dmcritchie/excel/buildtoc.htm You can enhance your sorted arrangement by preceding the sheet tab with some less conspicuous small letters i.e. k.FunctKeys, k.ShortCutKeys --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Nick Hodge" wrote in message ... Nigel No, but you can right click the sheet navigation buttons (bottom left) and select more sheets... -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England HIS "Nigel Bennett" wrote in message ... I have a Spreadsheet with 64 Worksheets in it, is it possible to tile the tabs on rows at the bottom instead of 1 long set of tabs |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheet Tabs
Nigel
Use Bob Phillips BrowseSheets macro(posted below)which displays a form with option buttons to select a sheet. I personally like this one. 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 Excel MVP On Sat, 7 May 2005 15:33:04 -0700, "Nigel Bennett" wrote: I have a Spreadsheet with 64 Worksheets in it, is it possible to tile the tabs on rows at the bottom instead of 1 long set of tabs |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheet Tabs
You may want to look at Workbook Navigator for Excel
http://www.tushar-mehta.com/excel/so...es/wb_nav.html -- Regards, Tushar Mehta www.tushar-mehta.com Multi-disciplinary business expertise + Technology skills = Optimal solution to your business problem Recipient Microsoft MVP award 2000-2005 In article , says... I have a Spreadsheet with 64 Worksheets in it, is it possible to tile the tabs on rows at the bottom instead of 1 long set of tabs |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sheet tabs is checked but I can't see my tabs | Excel Discussion (Misc queries) | |||
tabs are missing even though 'tools-options-view-sheet tabs' ok? | Excel Worksheet Functions | |||
How do I change the Excel sheet tab bar to display more sheet tabs | Excel Discussion (Misc queries) | |||
I want to print out the sheet tabs (sheet names) | Excel Worksheet Functions | |||
hide sheet? uncheck sheet tabs? or ??? | Excel Programming |