Private Sub cmdAll_Click()
  With ListBox1
  For i = 0 To .ListCount – 1
    .Selected(i) = Not .Selected(i)
  Next
  cmdAll.Caption=iif(.Selected(0),“Un”,“”) & “select All”
End Sub

Private Sub cmdOdds_Click()
  With Me.ListBox1
    For i = 0 To .ListCount – 1
      If .List(i Mod 2) = 1 Then .Selected(i) = not .selected(i)
    Next
  End With
  cmdOdds.Caption=iif(.Selected(1),“Un”,“”) & “select Odds”  
End Sub

Private Sub Userform_Initialize()<br>
  Listbox1.List=split("1|2|3|4|5|6|7|8|9|10|11|12","|")<br>
End Sub