Всем добрый вечер!  
Пытаюсь создать кнопку на стандартной встроенной панели управления, которая при нажатии выполняла те же функции что и клавиша «Esc», вроде и нашёл код, ниже:  
 
Sub НажатиеESC()  
Application.SendKeys "{ESC}"  
End Sub  
 
Но проблема в следующем:  
1 работает только при созданном новом файле, а в созданных раньше файлах не работает  
2 если дважды кликнул по ячейки содержащую формулу, то начинает мигать курсор, это  
мигание не отменяет.  
Отменяет только тока тогда, когда нажал на кнопку копирования, но не нажимал кнопку вставить, т.е. отменяет движущий курсор вокруг ячейки.  
Хотелось, чтобы кнопка «Esc» была бы полнофункциональная.  
Прощу помощи.  
 
Заранее благодарю,  
Спасибо.