Excel VBA Макросы: Как ставить / снимать в ячейке метку при щелчке по ячейке?

[Посетитель]

Пытаюсь сделать так, чтобы при щелчке по ячейке ставилась метка, если её нет, и убиралась метка, если она есть.
Но у меня не получается. Можете помочь?

[вложение удалено администратором]

[Администратор]

см. файл

[вложение удалено администратором]

[Посетитель]

Очень вам благодарен за оказанную помощь.