ComboBox with Sheet names

[Nalani]

I'm using the below code to populate my ComboBox on a Userform but running into a little problem.

Private Sub UserForm_Initialize()
Dim ws As Integer
For ws = 1 To Sheets.Count
ComboBox1.AddItem Sheets(ws).Name
Next
End Sub

It does not list the sheets within the CB. But if I click on the Scroll Bar, all sheets are listed.

From there I can click on one of them and then it will appear within the CB.

If I click on the Scroll Bar again and choose another sheet, the first one is replaced by the second choice.

Don't know what's going on here.

 

[jeffreybrown]

What do you expect to happen that isn't taking place?

I created a user form with combobox1 and using the attached code it is populated with the sheets in the workbook.

If I click on the drop down arrow I see all the sheets and then I can select one or anyone.

 

[Ron Coderre]

Try this variation of your code to load the combobox with the sheet names and select the first listitem:

Private Sub UserForm_Initialize()
Dim ws As Worksheet
'Load ComboBox1 with all worksheet names
'and select the first item
With ComboBox1
    .Clear
    For Each ws In ThisWorkbook.Worksheets
        .AddItem ws.Name
    Next ws
[B]   .ListIndex = 0[/B]
End With
End Sub

Is that something you can work with?

 

[jeffreybrown]

Thanks Ron for the help

 

[Nalani]

What I am expecting is.

My ComboBox is large enough to show all Worksheets, only 5 at the moment. I would like to have all ws to show in the combo box.

Never mind, as I was typing this out I realized I need a ListBox. daaa

One of those days ! !

Thanks to both of you guys for at least trying to set my brain straight. (sorry)