Do something for each selected item in a listbox

Private Sub UserForm_Activate()
Range("b1:B210").Clear
ListBox1.List = Range("A1:A10").Value
End Sub

Private Sub CommandButton1_Click()
For Count = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(Count) = True Then Cells(Count + 1, 2).Value = "Selected"
Next
End Sub