Remove selected item from listbox

I would recommend you use the double-click over single-click since when you remove an item it'll reset the focus to act as if you single-clicked again. Here's my suggestion:

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Long
    For i = 0 To ListBox2.ListCount - 1
        If i > ListBox2.ListCount - 1 Then _
            Exit Sub
        If ListBox2.Selected(i) = True Then _
            ListBox2.RemoveItem (i)
    Next i
End Sub

That's great - thanks for the help, one last thing, would it be possible to remove the item from the original ListBox when it is clicked, so it appears to move from one to the other? Then when it is removed it returns to the original? Thanks again for your help!

No worries have sorted it myself, thanks!

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
    ListBox2.AddItem ListBox1.Value
    For i = 0 To ListBox1.ListCount - 1
        If i > ListBox1.ListCount - 1 Then _
            Exit Sub
        If ListBox1.Selected(i) = True Then _
            ListBox1.RemoveItem (i)
    Next i
End Sub


Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Long
    ListBox1.AddItem ListBox2.Value
    For i = 0 To ListBox2.ListCount - 1
        If i > ListBox2.ListCount - 1 Then _
            Exit Sub
        If ListBox2.Selected(i) = True Then _
            ListBox2.RemoveItem (i)
    Next i
End Sub

I also trying to remove an item from a listbox. It works fine when a select any item except the last one listed.
When I select the last item to remove all items in the listbox are removed

here is the code

     For iCnt = Me.ListBox1.ListCount - 1 To 0 Step -1
        If Me.ListBox1.Selected(iCnt) = True Then
            Me.ListBox1.RemoveItem iCnt
        End If
    Next

I would not use the Click event.

You can not use RowSource when you use RemoveItem of course.

I would do this:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If (ListBox1.Selected(ListBox1.ListIndex)) Then ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize()
  ListBox1.List = WorksheetFunction.Transpose(Range("A1:A10"))
  'ListBox1.RowSource = "A1:A10"
End Sub

Private Sub CommandButton1_Click()
  Unload Me
End Sub

If you are going to use the same code for 2 or more listbox controls, you might want to use another sub.

e.g.

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  RemoveItem
End Sub

Private Sub RemoveItem()
  With ActiveControl
    If .Selected(.ListIndex) Then .RemoveItem .ListIndex
  End With
End Sub

That's brilliant, thank you all so much for your help, I have what I need now! +rep to you all.

thanks very much for your help
and I will start my owon thread next time

cheers