в чем ошибка?

Раньше был код который разблокировал лист ставил значение и потом его опять блокировал. Точнее это происходило в процедуре
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

потом я на это лист поставил проверку значений, ну чтобы там в ячейку нужную длину вводили.
а теперь если ввел неправильно нажимаешь энтер, выскаивает "ошибка ввели значение не тоя длины" жмешь отменя и выскакивает ошибка application-defined or object-defind erorr.

и становится на строчку (*)

Лист9.Unprotect Password:="UnivLeasHold"
Лист9.EnableSelection = xlUnlockedCells
Лист9.Range("e72") = "отклонить" '(*)
Лист9.Protect Password:="UnivLeasHold"
Лист9.EnableSelection = xlUnlockedCells

Почему?