Поле со списком для выбора?Это верно?

Question

Private sub combox1_keydown(ByVal keycode as msforms. Returnintenger, ByVal shift as integer)
    Application. Calculation =xlcalculationautomatic
    If keycode =9 then
    Range ("B2" ). Activate
    End If 
    Endsub
    Private sub worksheet _selectionChange (ByVal Target As range) 
    Application. Calculation =xlcalculationautomatic
    If not intersect (range(u5) , target) is nothing then
    Combobox2 activate 
    Endif
End sub