Не могу понять - при Sheets.Select вылетает ошибка - VB

Формулировка задачи:

Ничего не могу понять. Причины вижу только в том, что вчера поставили мне 2007-й офис.
Банальный выбор листа и вылетает ошибка:
[IMG]http://s51.radikal.ru/i131/1004/14/ca4fbf856b12.jpg[/IMG]
Ума не приложу что делать, никогда такой проблемы не было, в других проектах все нормально.
Может что-то с книгой, в которой я пытаюсь выбрать лист? Или с самим листом? Но что?

Решение задачи: «Не могу понять - при Sheets.Select вылетает ошибка»

textual
                            Листинг программы 
                        
                            <font color="blue">Private</font> <font color="blue">Sub</font> ComboBox1_KeyDown(<font color="blue">ByVal</font> KeyCode <font color="blue">As</font> MSForms.ReturnInteger, <font color="blue">ByVal</font> Shift <font color="blue">As</font> <font color="blue">Integer</font>)

<font color="blue">End</font> <font color="blue">Sub</font>