VBA Listbox add item function

[moomphas]

Hey,

I'm perplexed... Why doesn't the code work? Error message: object required

Sub Button13_Click()

ListBox21.AddItem Range("E167").Value

End Sub

[YasserKhalil]

Hello
May be the control "ListBox21" doesn't exist
It would be better if you upload sample of your file

[moomphas]

Sample attached

[Norie]

Try this.

    Sheet1.ListBox21.ListFillRange = Range("E167:E167").Address

[moomphas]

Thanks! Works, but I will add more items from E167 (it's a drop down), so this way makes me unable to add more items.

[xlnitwit]

Perhaps

Sheet1.ListBox21.AddItem Range("E167").Value

[moomphas]

thanks, works