ActiveX CheckBox

Dobrý den,
již dva dny hledám odpověď na můj problém. Mám na listu cca 300 checkboxů a pomocí makra níže je nastavuji na výchozí hodnotu.
Vše funguje bez problémů, ale potřeboval jsem přidat nějaké řádky - Ty jsem doplnil checkboxy a na ně toto makro nefunguje. Veškeré
funkce jsou stejné jako u ostatních. Jen jsou na dodatečně přidaných řádcích ....
Nevíte někdo co s tím? Excel 2016.
Moc děkuji za radu.

Pavel

Dim rn As Object
For Each rn In ActiveSheet.OLEObjects
If InStr(1, rn.Name, "Checkbox") > 0 Then
rn.Object.Value = False
End If
Next