Hoo Boy, this will take some explaining. Yes, TEAMLIST is a named range. All
of my named ranges are in CAPS. TeamAddsListBox is populated by the value of
a named range ADDLIST which is populated by the value of a named cell that
changes based on a selection from a ComboBox. All ListBoxes are SingleSelect
and a procedure is triggered by the Click event. The other code is there
because I am also populating a range called DROPS in the spreadsheet. I need
this as a temp holding area until the DROP button is clicked. The other code
was copied from another porcedure and is used to re-sort the list after
changes are made. I could overwhelm you with more info if you need it.

Thanks for trying to help me out.
--
Jim T


"Bob Phillips" wrote:

Jim,

I tried to recreate this and failed miserably.

I assume TEAMLIST is a named range in the workbook?
How is TeamAddsListBox populated, RowSource or AddItem, and from where?
Is TeamAddsListBox a multiselect listbox or single select?

I see the point of loop 1 and loope 2, move the selected item form one
listbox to another and delete from the former (although it is overkill if it
is a single seelct), but I am lost as to what this code aims to do

Range("TEAMLIST").Value = TeamListBox.List
Range("TEAMLIST").Select
Selection.Replace What:="#N/A", Replacement:=""
Range("TEAMLIST").sort Key1:=Range("TEAMLIST"), Order1:=xlAscending
Range("A84").Select
TeamListBox.List = Range("TEAMLIST").Value

When I ran this bit, TeamListBox filled with many repeated instances on one
value.


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Jim Tibbetts" wrote in message
...
Thanks for the reply Susan. I added "a=nothing" (without the quotes) after
the last line but got an error message.
--
Jim T


"Susan" wrote:

try setting your variables to nothing @ the end of the sub.......
a=nothing
just an idea that might help.
susan



On Feb 6, 1:32 pm, Jim Tibbetts
wrote:
OK, I give up. Can someone please tell me why the following macro works
perfectly the first time the TeamAddsListBox is clicked, but the second
time
it is clicked, the TEAMLIST range and the TeamListBox are not updated
from
the TeamAddsListBox.

Private Sub TeamAddsListBox_Click()
For a = 0 To TeamAddsListBox.ListCount - 1
If TeamAddsListBox.Selected(a) Then
TeamListBox.AddItem TeamAddsListBox.List(a)
End If
Next
For a = TeamAddsListBox.ListCount - 1 To 0 Step -1
If TeamAddsListBox.Selected(a) Then
TeamAddsListBox.Selected(a) = False
TeamAddsListBox.RemoveItem a
End If
Next
Range("TEAMLIST").Value = TeamListBox.List
Range("TEAMLIST").Select
Selection.Replace What:="#N/A", Replacement:=""
Range("TEAMLIST").sort Key1:=Range("TEAMLIST"), Order1:=xlAscending
Range("A84").Select
TeamListBox.List = Range("TEAMLIST").Value
End Sub

If I comment out the last line, the TEAMLIST is updated and sorted
correctly
and the name is added to the TeamListBox, but it is just added onto the
end
of the list. I need to have the list in the TeamListBox mirror the list
in
TEAMLIST. The name is removed from the TeamAddsList (as it should be)
in
either case. I have been stuggling with this all morning. Any help will
be
greatly appreciated.

Thanks,
--
Jim T