How to navigate between worksheets by using drop down list in Excel?

Supposing, you have a workbook which contains multiple worksheets, now, you need to create a drop down list or combo box which lists all sheet names and when you select one sheet name from the drop down list, it will jump to that sheet immediately. This article, I will introduce how to navigate between worksheets by using a drop down list in Excel.

Navigate between worksheets by using drop down list in Excel


Navigate between worksheets by using drop down list in Excel

To jump to each selected sheet by using a drop down list, please do with the following steps:

1. Click Developer > Insert > Combo Box (ActiveX Control), see screenshot:

2. Then drag the mouse to draw a combo box, and then right-click it, select View Code from the context menu, see screenshot:

3. In the opened Microsoft Visual Basic for Applications window, copy and paste the following code to replace the original code, see screenshot:

VBA code: Navigate between worksheets by using drop down list

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Then save and close this code window, and then click Design Mode to turn off the design mode, now, when selecting one sheet name from the combo box, it will go to that sheet at once, see screenshot:


Navigate between worksheets by using hyperlinks or buttons:

With Kutools for Excel's Create List of Sheet Names utility, you can quickly list all worksheet names in a new sheet with hyperlinks or macro buttons, then you can navigate between them to your need.

Kutools for Excel: with more than 300 handy Excel add-ins, free to try with no limitation in 30 days. Download and free trial Now!


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Name · 5 months ago
    hi, is it possible to combine various option from different dropdowns and open sheets accordingly.

    eg: if Option1 from dropdown1 is selected and Option2 from dropdown2 is selected then only the Sheet2 will open
  • To post as a guest, your comment is unpublished.
    Macro · 11 months ago
    hi there,
    Thank you very much for the code which create a dynamic combo box to navigate the sheets. Unfortunately I got an error. After navigating few sheets, the file automatically close. It doesn't even show any error message. I couldn't figure out the reason. I appreciate the help
    Thanks
  • To post as a guest, your comment is unpublished.
    roseanne · 1 years ago
    thanks for your code. It works for switching different sheet based on dropdown list.
    But I have several questions.
    1. after I process the related sheet, and want to go back to main menu(with sheet dropdown list), how could I do without using mouse?
    2. when I open the file, I would like the main menu(with dropdown list) as default . So I could start from this menu
    thanks
    rose
  • To post as a guest, your comment is unpublished.
    M · 2 years ago
    How do you change this to only show/select visible worksheets?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hi,
      To ignore the hidden sheets from the drop down list, and only keep the visible worksheets, the following VBA code may help you:

      Private Sub ComboBox1_Change()
      'Updateby Extendoffice
      If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
      End Sub
      Private Sub ComboBox1_DropButtonClick()
      Dim xSheet As Worksheet
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.EnableEvents = False
      If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
      ComboBox1.Clear
      For Each xSheet In ThisWorkbook.Sheets
      If xSheet.Visible Then
      ComboBox1.AddItem xSheet.Name
      End If
      Next xSheet
      End If
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub
      Private Sub ComboBox1_GotFocus()
      If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
      End Sub

      Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        M · 2 years ago
        It worked! Thank you! Do you know if this code will cause problems if sheets are renamed or will it update the list automatically?
        • To post as a guest, your comment is unpublished.
          skyyang · 2 years ago
          Hello,
          The above code works well when renaming the sheet name and the items in the drop down list will be updated automatically.
          You can try it.
  • To post as a guest, your comment is unpublished.
    Emmanuel · 2 years ago
    How can I add only specific sheets? and not all the sheet in the workbook
    • To post as a guest, your comment is unpublished.
      Christiannorman · 1 years ago
      Did you have any joy finding code to show only certain sheets in the dropdown box?
  • To post as a guest, your comment is unpublished.
    Ghaz · 2 years ago
    How can I make the hidden sheet active and hide the home page?