activar checkbox emilio

¡ Hola !\nTengo un dibujo de un plano donde hay varios checkbox que activan unas Shapes coloreando la zona del plano a la que pertenece. La sentencia es:\n\nPrivate SubCheckBox1_Click()\n\nActiveSheet.Shapes ("zona1").Visible = ...