[mradovan]

Autor Slađa

Super, hvala, radi mi ovaj gornji prvi kod gdje nisam navela kako se Checkboxevi zovu. HVala!
Sad jedino mi jos fali ako ih sve oznaci na tom jednom Checkboxu da ih drugim klikom i odznaci. Znaci,jednim checkboxom ih mogu oznaciti (to sad radi ovim kodom) i odznaciti.

Ako sam dobro razumio, to možeš postići pomoću statične varijable:

Private Sub selectSome_Click()

  Dim xCheckBox As CheckBox

  Dim i As Integer
  i = 0
  
  Static switch As Boolean
  switch = Not switch

  Application.ActiveSheet.CheckBoxes.Value = False

  If (switch) Then
    For Each xCheckBox In Application.ActiveSheet.CheckBoxes
      If (i < Range("E16").Value) Then
        xCheckBox.Value = True
      End If
      i = i + 1
    Next
  End If
  
End Sub