redneck345
New Member
- Joined
- Jul 16, 2011
- Messages
- 11
Is it possible to modify this code to work with any or All ComboBoxes?
It currently only functions with the "TempCombo" box.
I have ComboBox1 to ComboBox200.
(I'm using Excel 2003)
Thanks
It currently only functions with the "TempCombo" box.
I have ComboBox1 to ComboBox200.
(I'm using Excel 2003)
Code:
Private Sub TempCombo_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Select Case KeyCode
Case 9 'Tab
ActiveCell.Offset(0, 1).Activate
Case 13 'Enter
ActiveCell.Offset(1, 0).Activate
Case Else
'do nothing
End Select
End Sub
Thanks