Column heads disappear in filter listbox

[adelvoira]

HELLO,
i have this attached code below and when i click the button all the column heads disappear from the listbox and all the decimals too,
thank you

ListBox8.RowSource = EmptyListBox8.Clear
Sheets("AGENTS").Select
For Each f In Range("b2:b" & Range("b10000").End(xlUp).Row)
If f Like ComboBox9 & "*" Then
listed = ListBox8.ListCount
ListBox8.AddItem
ListBox8.List(listed, 0) = f.Offset(0, -1)
ListBox8.List(listed, 1) = f
ListBox8.List(listed, 2) = f.Offset(0, 1)
ListBox8.List(listed, 3) = f.Offset(0, 2)
ListBox8.List(listed, 4) = f.Offset(0, 3)
ListBox8.List(listed, 5) = f.Offset(0, 4)
ListBox8.List(listed, 6) = f.Offset(0, 5)
End If
With ListBox8
.ListIndex = .ListCount - 1
End With
Next

 

[Norie]

You can't have column headers in a listbox unless it's populated with the RowSource property and as far as I can see you are populating ListBox8 using the AddItem method.

As for the decimals going missing, I can't see anything in the posted code that would cause that - is there anything else going on?