Я пытаюсь использовать условие 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) расположены на листе 1 под именем & quot; Demande & quot ;. И каждый флажок имеет одно и то же отформатированное имя & quot; флажок ... & quot ;.

Вся помощь будет оценена. Спасибо