Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in


How to populate a Userform ComboBox with all sheet names in Excel?

This article is talking about populating all sheet names of current workbook into a userform Combo Box in Excel.

Populate a Userform ComboBox with all sheet names with VBA code

Easily list all sheet names in Excel

Click Enterprise > Worksheet > Create List of Sheet Names to easily list all worksheet names in a new worksheet in Excel. And you can shift to corresponding worksheet directly with clicking on the sheet name.

Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 60 days. Read More      Download the free trial now

Populate a Userform ComboBox with all sheet names with VBA code

The following VBA code can help you insert all sheet names of current workbook into a userform combo box. Please do as follows.

1. Press the Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, please insert a Userform by clicking Insert > Userform as below screenshot shown.

3. Then draw and insert a combo box control into the Userform. See screenshot:

4. Right-click the inserted combo box, and select View Code from the context menu. See screenshot:

5. In the opening Microsoft Visual Basic for Applications window, please copy and paste below VBA code to replace the original one in the Code window.

VBA code: Populate a Userform ComboBox with all sheet names of current workbook

Private Sub UserForm_Initialize()
    Dim I As Long
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Note: In the code, ComboBox1 is the name of the inserted Combo Box. Please change it to the one of your own.

6. Press the F5 key to run the code. In the opening Userform, you can see all sheet names of the current workbook are displaying in the combo box as below screenshot:

Related Articles:

Recommended Productivity Tools for Excel

Kutools for Excel Helps You Always Finish Work Ahead of Time, and Stand Out From Crowd

  • More than 300 powerful advanced features, designed for 1500 work scenarios, increasing productivity by 70%, give you more time to take care of family and enjoy life.
  • No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
  • Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
  • Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
  • 110,000 highly effective people and 300+ world-renowned companies' choice.
  • 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Brings Tabbed Browsing and Editing to Microsoft Office, Far More Powerful Than The Browser's Tabs

  • Office Tab is designed for Word, Excel, PowerPoint and Other Office Applications: 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!
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.
    Raj Pradhan · 1 years ago
    Dear Sir/Madam,
    Thanks for you kind help. I'm a new Lerner of VBA and these article helps me a lot. I have used this code to show all worksheets in a userform combobox. It is perfect. I have a doubt. Can I show those sheet name alphabetically on Userform_Initialize? Though my worksheets are not arranged alphabetically.
    Please guide me how to proceed further with my requirement.
    • To post as a guest, your comment is unpublished.
      crystal · 4 months ago
      Good Day,
      Sorry for replying so late. The following VBA code can help you solve the problem.

      Private Sub UserForm_Initialize()
      Dim xWSs As Worksheets
      Dim xWS As Worksheet
      Dim xName As String
      Dim xI As Integer
      Dim xRg As Range
      On Error Resume Next

      xName = "StoreWorkSheetsName"

      Application.DisplayAlerts = False

      If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
      Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
      Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
      End If
      Set xWS = Sheets(xName & "")

      For xI = 1 To Sheets.count - 1
      xWS.Range("A" & xI).Value2 = Sheets(xI).Name
      Next xI
      xI = xI - 1
      Set xRg = xWS.Range("A1:A" & xI)
      ActiveWorkbook.Worksheets(xName).Sort.SortFields.Add Key:= _
      Range("A1:A" & xI), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
      With ActiveWorkbook.Worksheets(xName).Sort
      .SetRange Range("A1:A" & xI)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      End With

      For i = 1 To xRg.count
      Me.ComboBox1.AddItem xRg.Item(i).Value

      Me.ComboBox1.Value = ActiveSheet.Name

      Application.DisplayAlerts = True
      End Sub