Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then 'vbKeyReturn=13 SendKeys "{TAB}" KeyAscii = 0 End If End Sub