Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim idx As Integer
idx = ListBox1.ListIndex
For idx = 0 To ListBox1.ListCount - 1
Range(ListBox1.RowSource).Cells(idx + 1, 2) = Array("", "X")(Abs(ListBox1.Selected(idx)))
Next
End Sub