Проверка, установлен ли флажок на рабочем листе -

Я пытаюсь использовать предложение IF -, чтобы определить, установлен ли мой флажок с именем «Флажок 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 ), расположены в листе1, по имени "Требование". Каждый флажок имеет одно и то же отформатированное имя «Флажок...».