Благодарствую, то что нужно!

Могу что-то не то делать(офси 10й), но это макрос срабатывает только тогда когда я его руками запускаю, а хотелось чтобы окошко всплывало при выделении любой доступной ячейки.

Я в VBA не силен, прошу помощи в написании макроса при котором ввод в любую ячейку будет проводится через диалоговое окно с одним полем для оценки (5,4,3,2).