Listbox Additem From Other Listbox Excell VBA

VBA Code

Private Sub CommandButton1_Click()

For i = 0 To Me.ListBox1.ListCount - 1

If Me.ListBox1.Selected(i) = True Then

Me.ListBox2.AddItem Me.ListBox1.Column(0)

Me.ListBox1.Selected(i) = False

End If

Next i

End Sub