alle selectievakjes deselecteren en extra regels hidden

[lseverins]

Hoi Hoi,

Ik ben bezig met excel bestand, ik heb nu alle selectievakjes toegevoegd, en het werkt prima.
Ook ingebouwd dat bepaalde selectievakjes verbergen bij bepaalde selectie.

Nu zijn er nog 2 dingen die ik niet voor elkaar krijg:
Ik heb een knop aangemaakt. Ik wil dat deze knop alle selectievakjes deselecteerd. Is dat mogelijk?
(ik ben geen VBA beginneling)

Als ik financiele vaste activa selecteer dan verbergen de vakjes eronder, graag wil ook dat de regels verbergen.
Onderstaande werkt behalve de laatste regel?
Wat doe ik verkeerd?
Private Sub CheckBox3_Click()
If Me.CheckBox3 = True Then
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = True
CheckBox7.Visible = True
Else
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = False
CheckBox7.Visible = False
End If

Sheets("Werkprogramma").Rows("28:28").Hidden = IIf(CheckBox1, False, True)
Sheets("Voorblad").Rows("9:14").Hidden = IIf(CheckBox1, False, True)

End Sub
Alvast bedankt!Bekijk bijlage Werkprogramma checkbox 27-12.xlsm

 

[SjonR]

zo?

For Each c In Blad1.OLEObjects
    If Left(c.Name, 8) = "CheckBox" Then c.Object.Value = False
Next

 

[edmoor]

Of:

For Each c In Sheets("Voorblad").OLEObjects
    If TypeName(c.Object) = "CheckBox" Then c.Object = False
Next

 

[SjonR]

En ik liep met typename(c.name) te *****n, maar dat was dus appels met peren

 

[edmoor]

Zolang het appeltaart en stoofpeertjes betreft hoort dat er gewoon bij in deze tijd van het jaar