EXCEL VIDEO TUTORIALS / EXCEL DASHBOARD REPORTS

Ozgrid, Experts in Microsoft Excel Spreadsheets

Excel Worksheets - Navigating Excel Worksheets

| | Information Helpful? Why Not Donate.

 

Originally Posted in our Excel Help Forum

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only $145.00. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Alan has 60+ worksheets in one workbook & wanted to know how to quickly navigate between them. A number of solutions were offered.
 
Solution 1 suggested by WillR
 
Use the arrows in the bottom left of the worksheet? Right click on them and you will be presented with a list of worksheet names. Select whichever one you want to move to.

Solution 2 by Hey Ho

Use Ctrl + Page Down to move forward a worksheet. Ctrl + Page Up moves backwards. NB. Ensure Num Lock is off

Solution 3 by XL Dennis
 
Dennis suggests a VBA approach that makes a Command Bar to navigate your sheets as opposed to a standard Table of Contents sheet. The problem with building up a TOC sheet is that whilst we can easily move from the sheet to another sheet we still need to use another "shortcut" to move to next. So if You don't want to build up a VBA-solution then go with the "right-click" and if You want a VBA-solution the following might be of interest, which creates a Navigation Command Bar:

Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("Navigate").Delete
On Error GoTo 0

With Application.CommandBars.Add("Navigate XL-Dennis", , False, True)

  With .Controls.Add(msoControlButton)
         .TooltipText = "Move Back"
         .FaceId = 1017
         .OnAction = "Move_Back"
         .BeginGroup = True
  End With

  With .Controls.Add(msoControlDropdown)
         .AddItem "Sheet1"
         .AddItem "Sheet2"
         .AddItem "Sheet3"
         .TooltipText = "SheetNavigate"
         .OnAction = "Sheet_Navigate"
  End With

  With .Controls.Add(msoControlButton)
       .TooltipText = "Move next"
       .FaceId = 1018
       .OnAction = "Move_Next"
  End With

       .Protection = msoBarNoCustomize
       .Position = msoBarFloating
       .Visible = True
  End With
End Sub


Private Sub Sheet_Navigate()
Dim stActiveSheet As String

 With CommandBars.ActionControl
     stActiveSheet = .List(.ListIndex)
 End With

Select Case stActiveSheet
   Case "Sheet1"
        Worksheets("Shee1").Activate
   Case "Sheet2"
       Worksheets("Sheet2").Activate
   Case "Sheet3"
        Worksheets("Sheet3").Activate
End Select
End Sub

Private Sub Move_Back()
On Error Resume Next
ActiveSheet.Previous.Select
End Sub

Private Sub Move_Next()
On Error Resume Next
ActiveSheet.Next.Select
End Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.


Instant Download and Money Back Guarantee on Most Software

EXCEL VIDEO TUTORIALS / EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft and Microsoft Excel are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates