Zaškrtávací políčko

[Jsimi]

Ahoj všem,
Mám formulář kde je několik zaškrtávacích políček a já potřeoval bych poradit, zda je možné pomocí makra zaškrtnout, případně zrušit zaškrtnutí u všech najednou.
Díky za jakoukoliv radu.

[Reklama]

[cmuch]

Pokud jsou to políčka formuláře tak mít nastaveno propojení s buňkou
a pak jen přepisovat text PRAVDA - NEPRAVDA

Pokud prvek je ActiveX tak
CheckBox1.Value = True 'zaskrtnuto
CheckBox1.Value = False 'nezaskrtnuto

[Jsimi]

Když použiji políčka formuláře a propojím je s buňkou tak reagují všechny na jednou, ale já potřebuji např. všechny zatrhnout a u jednoho to zatržení zrušit a bohužel se mi zruší zatržení i u těch ostatních.
Pokud použiji CommandButton, tak to chodí jak má, ale já bych chtěl použít např. nějaký tvar a přiřadit mu makro, jenže mi to hlásí chybu. Co dělám špatně? Makro vypadá takto

Sub Obdélník1_Klepnutí()
CheckBox2.Value = True 'zaskrtnuto
CheckBox3.Value = True 'zaskrtnuto
CheckBox4.Value = True 'zaskrtnuto
End Sub

Sub Obdélník2_Klepnutí()
CheckBox2.Value = False 'nezaskrtnuto
CheckBox3.Value = False 'nezaskrtnuto
CheckBox4.Value = False 'nezaskrtnuto
End Sub

[cmuch]

Pro každý prvek formuláře musíš přiřadit jiný řádek.

Ta chyba zmizí když makro umístíš do příslušného listu kde jsou checboxy.