What in the....

This is Very werid, it's as if VBA in Excel 2003 has a bug....

If I do:

VB Code:

For i = 0 To ListBox1.ListCount - 1            
            If ListBox1.Selected(i) Then
                ListBox2.AddItem ListBox1.List(i)
            End If
Next

I get an error stating that it cannot get the selected property. When debugging I see that i is the same as Listbox1.ListCount, therefore, it is trying to get the selected value of an element that does not exist. So, I am having to put it as follows:

VB Code:

For i = 0 To (ListBox1.ListCount - 1)
        If i = ListBox1.ListCount Then Exit For
            If ListBox1.Selected(i) Then
                ListBox2.AddItem ListBox1.List(i)
            End If
Next

Any ideas or thoughts about this?

try to address the object that contains the listbox

for i = 0 to sheet4.listbox.listcount -1

should all work

Yeah, I tried all that. For whatever reason the For Next loop is simply going over the Listbox.Count.... Even in some cases by more than one... I found this out thanks to some error handling.

It's the oddest thing, I have never had this problem before.

that is a common problem if you are deleting items from the listbox in the for loop, in which case you should use

VB Code:

for i =  sheet4.listbox.listcount -1 to 0 Step - 1

to loop from the bottom

I am not deleting items from the listbox, I am loading each item into a variable. I have it handled, but I just hate having to handle something that should be assumed. You know?