检查是否选中基于工作表的复选框

我正在尝试使用 IF 子句来确定是否选中了名为“Check Box 1”的复选框。

我当前的代码：

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

这是行不通的。调试器告诉我有问题

ActiveSheet.Shapes("Check Box 1")

但是，我知道这段代码是有效的（即使它有不同的目的）：

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

我的复选框（我的页面上有 200 个）位于sheet1 中，名称为“Demande”。每个复选框都具有相同格式的名称“复选框...”。

Sub Button167_Click()
 If ThisWorkbook.Worksheets(1).Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
 Range("Y12").Value = 1
 Else
 Range("Y12").Value = 0
 End If
End Sub

1为选中，-4146为未选中，2为混合（灰色框）