Shouldn't
UserFormModelListDisplay.ListBox1.AddItem Item
be
UserFormModelListDisplay.ListBox1.AddItem mItem


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Cody" wrote in message
...
Private Sub UserFormModelListDisplay_Initialize()

Dim mItem As Variant

Load UserFormModelListDisplay
For Each mItem In modelClass
UserFormModelListDisplay.ListBox1.AddItem Item
Next mItem
UserFormModelListDisplay.Show

End Sub

"Chip Pearson" wrote:

Post the code that is causing the error.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Cody" wrote in message
...
Would I get this error if I was trying to fill a Listbox
with
values from a
collection and the collection was empty?