I want to insert values from cells A1:A15 in listbox. A2,a5 and a10 are
empty and I don't want dem in my listbox. So how to populate listbox
without empty cells?

Hi Alen32,

Try this:

Private Sub UserForm_Initialize()
For Each c In ActiveSheet.[A1:A15]
If c < "" Then ComboBox1.AddItem c
Next c
End Sub

Regards,
KL



"Alen32" wrote in message
lkaboutsoftware.com...
I want to insert values from cells A1:A15 in listbox. A2,a5 and a10 are
empty and I don't want dem in my listbox. So how to populate listbox
without empty cells?

thanks!!