Eu estou tentando usar uma cláusula IF para determinar se a minha caixa de seleção, chamada "Check Box 1", está marcada ou não, para uso posterior no meu programa.

Meu código atual:

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

Isso não parece funcionar, mas a depuração está me dizendo que há um problema com o

      ActiveSheet.Shapes("Check Box 1")

No entanto, sei que esse código funciona (mesmo que tenha um propósito diferente):

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

EDIT: Se mais informações forem necessárias, minhas caixas de seleção (há 200 na minha página), estão localizadas na sheet1, pelo nome de "Demande". E cada caixa de seleção tem o mesmo nome formatado de "Caixa de seleção ...".

Toda ajuda seria apreciada. obrigado