Имеется форма, в ней Textbox  
 
В textboxe написан небольшой макрос для отлова нажатия Enter  
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)  
If KeyCode = 13 Then  
.....  
.....  
.....  
 
Который отлавливает, нажатие Enter и запускает некое действие.  
Но, время от времени, перестает реагировать на Enter, убедить его что Enter нажат не получается, только перезапуск макроса. Ошибки ни какой не выдает.  
 
Может кто сталкивался с такой проблемой и имеет решение.

Мда. Косяк. Исправил

Добрый день отцы. Требуется ваша помощь. Есть список товара по отделам и количеством. Макрос через автофильтр выбирает отдел, затем полученный список сортирует по убыванию по количеству. Вопрос как в полученном списке выделить первые 20 строк. При условии что количество товара в отделах меняется соответственно меняются и номера строк. В приложение образец. <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]