vincular datos al activar un checkbox. Emilio AYUDA!!!

¡ Hola !
Tengo 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:

Private SubCheckBox1_Click()

ActiveSheet.Shapes ("zona1").Visible = CheckBox1

Y me gustaría que a cada zona que se activara también rellene unos datos (por ejemplo: "ZONA 1"en otra hoja creando un listado de todas las zonas que se activen y borrando cuando estén desactivadas.

Muchas gracias