[VBA Excel] Seleziona/deseleziona tutto

[patel]

Private Sub CheckBox1_Click()
For I = 1 To ListBox1.ListCount
       ListBox1.Selected(I - 1) = True
Next I
End Sub