Populate ComboBox with Worksheet Names

[Allen]

I'm trying to populate a combobox in a userform with the names of the
worksheets in my spreadsheet.

I'm guessing I'll just need to put it in a userform_initialize statement
with a For Each / Next loop, but am having trouble getting it to work.

Any syntax suggestions are much appreciated! Thanks

 

[Rick Rothstein]

Assuming your ComboBox is named ComboBox2, give this code a try...

Dim X As Long
....
....
For X = 1 To Worksheets.Count
ComboBox1.AddItem Worksheets(X).Name
Next

 

[Mike H]

Hi,

Try this

Private Sub UserForm_Initialize()
For x = 1 To Worksheets.Count
ComboBox1.AddItem Sheets(x).Name
Next
End Sub

Mike

 

[Allen]

That did the trick, thank you so much!

Hi,

Try this

Private Sub UserForm_Initialize()
For x = 1 To Worksheets.Count
ComboBox1.AddItem Sheets(x).Name
Next
End Sub

Mike

 

[Mike H]

Your welcome and thanks for the feedback

That did the trick, thank you so much!