help with textbox tabkeybehavior
 

Have been working with comboboxes with assoc textboxes + command buttons to
give costs of popular named beverages on separate wksheet in 'range' columns
headed 'by manufctrer'.....so that we can see how much spent on 'xxx vodka'
etc
This involves repeated commandbutton clicks after each textbox amount entered
to activate entry to column next sheet
Would like to use 'ENTER' key in sub.......to save time and make more
interesting
If you know what I mean
code being currently used is:-
sub commandbutton1_click()
Sheets("invsales").Activate
Worksheets("invsales").Range("invref").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
End sub
Anything I can add to this code - ( have tried ONKEY - without success)
to get {ENTER} to do the work a bit easier
Grateful for any suggestions