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

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
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    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:

• How to copy Combo Box value to active cell in Excel?
• How to display date format in combo box output in Excel?
• How to open a specific worksheet by the selected value of a Combo Box in Excel?
• How to prevent or disable typing in a combo box in Excel?
• How to tab out of combo box to select specific cell in Excel?