Help with Add/Remove Items from One List Box to Another

Hello all,

I am having trouble with some code to populate one User Form list box based on the values in another. The user has a list of available colors on the left and uses command buttons to either

1) Add All
2) Add Selected
3) Remove Selected
4) Remove All

The Add All and Remove All functions are working but the Add/Removed selected is not.

My code for Add Selected:

Private Sub CmdBtn_AddColor_Click()
'
'Source: Move user selected values from list box 1 to list box 2: https://analysistabs.com/excel-vba/listbox-adding-clearing-items-multiple-selection/
'

    Dim iCnt As Integer
    
    For iCnt = 0 To Me.LstBx_ColorsSelected.ListCount - 1
    If Me.LstBx_ColorsSelected.Selected(iCnt) = True Then
        Me.LstBx_ColorsAvailable.AddItem Me.LstBx_ColorsSelected.List(iCnt)
        End If
    Next
    For iCnt = Me.LstBx_ColorsSelected.ListCount - 1 To 0 Step -1
    If Me.LstBx_ColorsSelected.Selected(iCnt) = True Then
        Me.LstBx_ColorsSelected.RemoveItem iCnt
        End If
    Next
        
End Sub

My code for Remove Selected, this function simply needs to remove the selected items from the list box, it does not need to repopulate them back to the other list box.

Private Sub CmdBtn_RemoveColor_Click()
'
'Source: Move user selected values from list box 1 to list box 2: https://analysistabs.com/excel-vba/listbox-adding-clearing-items-multiple-selection/
'

    Dim iCnt As Integer
    
    For iCnt = 0 To Me.LstBx_ColorsSelected.ListCount - 1
    If Me.LstBx_ColorsSelected.Selected(iCnt) = True Then
        Me.LstBx_ColorsSelected.RemoveItem
    End If
        
    
End Sub

A copy of my project is attached. I have not yet written code for the other functions of the User Form.

Worked perfectly. Thank you. What was wrong with my initial code. Very new to VBA, your code looks similar but if you could point out the error, I would appreciate it. Thank you again!

And you could shorten code a bit in other places, e.g.:

Option Explicit

Private rngColorList As Variant

Private Sub UserForm_Initialize()
Dim last_row As Long

    With Sheets("Colors Available")
        last_row = .Cells(.Rows.Count, "A").End(xlUp).Row
        rngColorList = .Range("A2:A" & last_row).Value
    End With
    
    Me.LstBx_ColorsAvailable.List() = rngColorList
    
'Dim rngColorList As Range
'Dim shtColorSource As Worksheet
'
'    'Pull dynamic range to populate LstBx_ColorsAvailable
'    Set shtColorSource = Worksheets("Colors Available")
'
'    For Each rngColorList In shtColorSource.Range("lst_ColorsAvailable")
'        Me.LstBx_ColorsAvailable.AddItem rngColorList.Value
'    Next rngColorList
End Sub

Private Sub CmdBtn_Close_Click()
    Me.Hide
    Unload Me
End Sub

Private Sub CmdBtn_AddAllColors_Click()
    Me.LstBx_ColorsSelected.List() = rngColorList
    
'Dim iCnt As Integer
'
'    For iCnt = 0 To Me.LstBx_ColorsAvailable.ListCount - 1
'        Me.LstBx_ColorsSelected.AddItem Me.LstBx_ColorsAvailable.List(iCnt)
'    Next iCnt
End Sub

Thank you.