This sytax from the help files, does not look like the syntax you are using,
and it gives no explanation for using your syntax. Maybe this is your
problem.

Private Sub object_KeyDown( ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As fmShiftState)



"dan dungan" wrote:

Hi,

I also tried:

Private Sub cboPartnum_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)

Application.Calculation = xlCalculationManual
Select Case KeyCode
Case 9 'Tab
Worksheets("QuotedPart").Range("d2").Activate
Case 13 'Enter
Worksheets("QuotedPart").Range("d2").Activate
Case Else
'do nothing
End Select
Application.Calculation = xlCalculationAutomatic
End Sub


This didn't return an error message, but the application froze and ctrl
+alt+F9 did not stop the calculation.

Thanks for any feedback.

Dan