Display Sheet Tabs in Two Rows

  • Thread starter Thread starter TrendNathaniel
  • Start date Start date
T

TrendNathaniel

Hi, I'm using MS Excel 2003 and I've created a workbook with a huge
number of sheets. I need to navigate between sheets frequently.

Is there a way to display the tabs in 2 or 3 rows along the bottom,
instead of constantly scrolling left and right?

The sheet names are already as short as possible and I dragged the
scroll bar to as small a setting as is useful.

Thanks for the help
 
Not as far as I know, but try RIGHT clicking on the scroll bar - you
get a list of ALL worksheet names this way
 
Make a list on a MENU page and then a double_click event to goto the one
clicked. Why so many sheets in the first place?
 
Little known fact:

if you right click on the 'play' button which would normally select
next sheet, it brings up a list of all sheets you can select one from
there if that is easier.

have a go, let us know if this is ok for you

I dont personally know if / how you can display on more than one line
so hope this helps instead.

Duncan
 
Sub listsheets()
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.DisplayAlerts = False
Dim WantedSheet As String
WantedSheet = Trim(ActiveCell.Value)
If WantedSheet = "" Then Exit Sub
On Error Resume Next
If Sheets(ActiveCell.Value) Is Nothing Then
GetWorkbook ' calls another macro to do that
Else
Sheets(ActiveCell.Value).Select
ActiveSheet.Range("a4").Select
End If
Application.DisplayAlerts = True
End Sub
 
What I did was make sheet1 be an "Index" sheet and create links to all other
sheets by adding the sheet names and hyperlinks down the cells of column 1

Dim iRow As Long
Dim Sheet As Worksheet

For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "Index" Then
iRow = iRow + 1
Sheets("Index").Hyperlinks.Add _
Anchor:=Sheets("Index").Cells(iRow, 1), _
Address:="", _
SubAddress:="'" & Sheet.Name & "'!A1", _
TextToDisplay:=Sheet.Name
End If
Next Sheet
 
Hi, I'm using MS Excel 2003 and I've created a workbook with a huge
number of sheets. I need to navigate between sheets frequently.

Is there a way to display the tabs in 2 or 3 rows along the bottom,
instead of constantly scrolling left and right?

The sheet names are already as short as possible and I dragged the
scroll bar to as small a setting as is useful.

Thanks for the help
Click to expand...

No, as far as I know.
 
Back
Top