Francisco Cardo

Suponemos qie quieres escribir por en a1 Entonces haríamos: sub comandbutton1_click() if chekbox1.value=true then range("a1).select activecell.formulaR1C1= "x" end if end sub