I should have read part two.

"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