Excel

I have excel sheet with 30 sheets. All the sheet tabs don't fit in one row. Can I view in two rows.
King LhenAsked:
Who is Participating?
 
Martin LissConnect With a Mentor Older than dirtCommented:
This is what I mean.
Cursor_and_Microsoft_Excel.jpg
0
 
Martin LissOlder than dirtCommented:
No but you can click the sheet navigation buttons in the bottom-left-hand corner of the workbook.
0
 
Wayne Taylor (webtubbs)Connect With a Mentor Commented:
Also, if you right-click the navigation buttons Martin described above, you can select from a list of worksheets and it will take you directly there.

Select Sheet
With 30 sheets however you will also need to select "More Sheets..." which offers the entire sheet listing.

More Sheets
3
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

 
Martin LissOlder than dirtCommented:
Also, if you right-click the navigation buttons...
I never knew that.
0
 
Rob HensonConnect With a Mentor Finance AnalystCommented:
Or you can set up an index sheet with a link to each sheet.

Hyperlinks for 30 sheets will take a few minutes to create unless you do them with a VBA routine.

Alternatively, use the double-click event on an index sheet to navigate to the desired sheet.

See attached, double click on one of the sheet names on Index sheet and it will move cursor to A1 of that sheet. Double click somewhere that isn't recognised as a sheet name and it will be ignored.

If you wanted this could be expanded to hide all but the selected sheet.
Sheet-Selector.xlsm
0
 
Rob HensonFinance AnalystCommented:
Alternative vba that will also hide other sheets

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim ws As Worksheet
If Target.Column <> 1 And Target.Row > 30 Then Exit Sub
ShtName = Target.Value
On Error GoTo Finish

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> ShtName And ws.Name <> "Index" Then
    ws.Visible = xlSheetHidden
    Else
    ws.Visible = xlSheetVisible
    End If
Next ws

Sheets(ShtName).Select
Range("A1").Select

Finish:
Cancel = True
End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.