[RESOLVED] check box to remove items from list?

[MartinLiss]

Try something like this

Option Explict
mstrSave As String
 
 
If chkboxuf1.Value = True Then
    Dim lngIndex As Long
    
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "AAA" Then
            [HL="#FFFF80"]mstrSave = List1.List(lngIndex).List[/HL]
            List1.RemoveItem lngIndex
        End If
    Next

And then in the Click sub

List1.AddItem mstrSave