Excel VBA - UserForm ListBox Not Populating

Question

I have a listbox added to a userform. When I set a property, add an item, etc. via code, nothing appears in the listbox. I don't get an error, the listbox just remains blank. Here's a snippet. I reviewed the listbox properties and Enabled and Visible are true, Locked is false.

Private Sub Refresh_Click()
ListBox1.Clear
Dim wb As Workbook
UserForm1.ListBox1.BackColor = RGB(5, 5, 5) 'threw this in for testing; box not changed
For Each wb In Workbooks
   MsgBox wb.Name
   ListBox1.AddItem wb.Name 
   'this is what I'm trying to accomplish; 
   'wb.Name shows in the MsgBox but not in the listbox
Next wb
End Sub

this code is inside the userform? change userform1.BackColor to me.BackColor — Patrick Lepelletier
– Patrick Lepelletier, Commented Mar 23, 2016 at 18:38

2red13 · Accepted Answer · 2012-12-13 07:03:04Z

2

The code has no errors and works, but i had to change the fore-color of the listbox in order to see the item

answered Dec 13, 2012 at 7:03

2red13

11.2k8 gold badges43 silver badges53 bronze badges

Sign up to request clarification or add additional context in comments.

6 Comments

TSB Over a year ago

What did you change the ForeColor property to?

2red13 Over a year ago

simply to white, because this line UserForm1.ListBox1.BackColor = RGB(5, 5, 5) tured the Listbox into black (nearly)

TSB Over a year ago

I just can't get this to work. I deleted the listbox and added a new one and still no luck. Here's the current code:

TSB Over a year ago

Private Sub Refresh_Click() Dim wb As Workbook For Each wb In Workbooks ListBox1.AddItem wb.Name Next wb End Sub

2red13 Over a year ago

sorry, i have no idea, i created a Userform1, perform the load ans show stuff and executed your code without any problems...

|

Collectives™ on Stack Overflow

Excel VBA - UserForm ListBox Not Populating

1 Answer 1

6 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

6 Comments

Your Answer

Sign up or log in

Post as a guest

Related