Estoy tratando de usar una cláusula IF para determinar si mi casilla de verificación, llamada "Casilla de verificación 1", está marcada o no, para mi uso posterior en mi programa.

Mi código actual:

Sub Button167_Click()
 If ActiveSheet.Shapes("Check Box 1") = True Then
 Range("Y12").Value = 1
 Else
 Range("Y12").Value = 0
 End If
End Sub

Esto no parece funcionar, pero la depuración me dice que hay un problema con el

      ActiveSheet.Shapes("Check Box 1")

Sin embargo, sé que este código funciona (aunque tiene un propósito diferente):

ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOn

EDITAR: Si se necesita más información, mis casillas de verificación (hay 200 en mi página), se encuentran en la hoja 1, con el nombre de "Demande". Y cada casilla de verificación tiene el mismo nombre formateado de "casilla de verificación ...".

Toda ayuda será apreciada. Gracias