Как объекту рисования (овал) присвоить значение?

[Град]

Подскажите, пож-та, чайнику!))
Задача:
Существует на листе овал красного цвета. Надо к нему привязать(возможно это называется по другому) значение, допустим 101.

1.Макрос должен просматривать столбец "А" и когда найдет значение 101 в ячейке, то смотрит справа от неё (стало быть уже в столбце "В") и если там значение "да", то овал увеличивается в диаметре и меняет свой цвет на зеленый.
В идеале - овал начинает "дышать" (уменьшая и увеличивая радиус каждую секунду).

2.Если овал не "дышит"(то есть справа от ячейки со значением 101 нет слова "да"), то если кликнуть на него, он должен "задышать", а справа от ячейки со значением 101 слово "да" появляется

3.Если он "дышит", то кликнув на нём, перестает дышать, цвет становится красным, а слово "да" справа от ячейки со значением 101 удаляется.

надеюсь понятно описал. Ощущение такие, что просто, а вот написать не могу. Знаний не хватает. Спасибо!

[SAS888]

Без проблем, но сегодня нет времени. Смогу только завтра.

[Град]

Спасибо, буду ждать.

[SAS888]

Посмотрите вложение. Сделал так, как понял. Для упрощения, подразумевается, что значение 101 в столбце "A" если есть, то только один раз. Т.е. поиск проводится до первого найденного значения. Но, это уже дело техники.

[Град]

Большое спасибо!
а можно доделать так, что бы при написании слова "да" овал начиналь "дышать",(т.е. и при клике на нём и при написании "да" в столбце "В" справа от 101)?
Спасибо еще раз

[SAS888]

Так и сделано. Напишите не "да", а "Да" (с большой буквы). Если нужно с маленькой (или с любой) - подправьте макрос.

[Град]

Спасибо!
А если на листе будут несколько овалов( более 100) и у каждого своё значение, наверное этот макрос уже не сработает? Или я в нём не совсем правильно разобрался?!

[SAS888]

У каждого объекта свое имя. Обращаясь по имени (как сделано в примере) Можно назначить поиск своего значения. Если нужно - сделайте аналогично.

[Град]

Большое спасибо за помощь!