Ввод данных клавиатурой в ячейку, выбранную кнопкой на форме.

[agregator]

Здравствуйте, уважаемые прогриммисты. Подскажите как сделать так, чтобы вводить данные клавиатурой в ячейку, выбранную с помощью кнопки на форме excel 2003. Если сразу нажимаешь на кнопки клавиатуры, ничего не происходит, а чтобы ввести данные надо перевыбрать ячейку вручную. Код на кнопке

Private Sub CommandButton1_Click()
 Range("B9").Select
End Sub

[agregator]

Поясню, мне надо деактивировать форму UserForm1 и активировать лист. Unload Me не подходит, нужно, чтобы форма осталась. Пробовал

 UserForm1.UndoAction
 Worksheet.Activate

Это не работает. Подскажите как это сделать.

[Step_UA]

  Range("B9").Activate
  AppActivate Application.Name

[agregator]

Step_UA, спасибо! То, что надо.