Private Sub ListBox1_Change()
Dim Lst2, i&, c
Set Lst2 = ListBox2
With ListBox1
Lst2.Clear
Lst2.List = .List
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) = False Then
Lst2.RemoveItem (i)
Else
Lst2.Selected(i) = True
For c = 2 To Lst2.ColumnCount - 1: Lst2.List(i, c) = "": Next
End If
Next
End With
End Sub