[RESOLVED] List box

Hello, i have problem , when ever i try to add info from cells to list box it also adds empty spaces, how could i change this?
Here is my code

Code:

---

Private Sub CommandButton1_Click()
    ListBox1.Clear


    If TypeOf Selection Is Range Then
        For i = 1 To Selection.Rows.Count
            For j = 1 To Selection.Columns.Count


                ListBox1.AddItem (Selection.Cells(i, j))


            Next
        Next
    End If

End Sub

---

Are you sure that this is VB.NET? Looks more like VB6 or maybe VBA.

Im not sure i know the difference. what forum would you suggest me?

I would suggest that you work out what language you're actually using and then post in the forum dedicated to that language.

What software application are you using to develop the code?

Microsoft excel

Moved to office development which is for VBA questions.

try like

Code:

---

              if not isempty(selection.celss(i, j)) then ListBox1.AddItem (Selection.Cells(i, j))

---

Okey, tnx, but how could i integrete in my code?
Do i make another ''if'' or i add it with ''and'' to the first one?

just swap it in place of the existing line to additems