Error on userform remove button click

[gsurge]

Hello,

I am in a tight jam, as my project is due tomorrow and I am now encountering an error for the first time. My assumption is that I coded for Excel 2003 and am testing on excel 2007 right now, but I cannot confirm that is the cause of the error.

I have a user form with two source listboxes: (1) listcg (2) listmc that are added to listselected when the "add button" is clicked. The problem is now removing an item from the listselected lsitbox back to the original source listbox.

I select ALL of the items in listCG and move them to listselected. Now the error ONLY occurs when I remove the items from listselected in a different order. In other words, the code works if I have items remaining in listCG still or if I remove from listSelected in order top to bottom.

The code is meant to return the item to the exact order it was in before adding to listSelected = alphabetically. If it was not originally in listCG, it checks to add back to listMC.

again, the code only breaks down when there are no items remaining in listCG or when removed out of order. breakdown point is

listCG.AddItem c01, i

PLEASE HELP!

Private Sub cmdRemove_Click()

Dim icounter3 As Integer
Dim i As Integer
Dim found As Boolean
Dim c01 As String


If listSelected.ListIndex = -1 Then Exit Sub

For icounter3 = 0 To listSelected.ListCount - 1

    If listSelected.selected(icounter3) Then
        c01 = listSelected.List(icounter3)
        listSelected.RemoveItem icounter3
        For i = 0 To UBound(CorrelArrayCG)
        Debug.Print CorrelArrayCG(i) & " " & c01
            If CorrelArrayCG(i) = c01 Then
                found = True
                listCG.AddItem c01, i
                Exit For
            End If
        Next
        If found = False Then
            For i = 0 To UBound(CorrelArrayMC)
                If CorrelArrayMC(i) = c01 Then
                    listMC.AddItem c01, i
                    Exit For
                End If
            Next
        
        End If
        
    End If
Next icounter3


End Sub

[Norie]

What is the error?

[gsurge]

run-time error '-2147024809 (80070057)':

Invalid Argument

[Norie]

What are the arguments, c01 and i when you get the error?

[gsurge]

well i is the position of the selected item in the original array (integer) and c01 is the name of the item selected (string)

is that what you are asking for?

[Norie]

Not really.

What are there actual values when you get the error?

[gsurge]

i=4
c01=atlanta

[Norie]

I've done some checks and if the listbox is empty that will cause the error you describe.

That's probably because there is no 'position' 1 yet in the listbox.

[Norie]

I can't see how that would cause a problem.

How is listCG initially populated?

[gsurge]

any ideas on how to bypass this error. I need the listbox to remain sorted as it was originally every time i add to it (using the remove button)

[Norie]

Is listCG empty?

If it is why not just repopulate it as you initially do?

[gsurge]

on the userform, i remove from listCG and transfer to listSelected using an ADD button. Assuming I transfer all items from listCG, I now create the empty listbox.

I am trying to have the REMOVE button send items back one-by-one to listCG while remaining sorted (original position)...i can get it to return to the listCG box, but not remain alphabetically sorted

[Norie]

Why do you need to 'send' them back?

Can't you just repopulate the listbox with the original values, and remove them from listSelected?

[gsurge]

so simply listCG.additem? How can I then get the list to remain alphabetically sorted? Thanks again for your help Norie

[Norie]

It might not be AddItem - I don't know how you originally populated listCG.

Perhaps if you attached a sample workbook it might help.

[Andy Pope]

You need to post example workbook.