AP - Do you know how I can use the code you provided below AND after a
hard return (Enter) have the active cell go to the cell below, not 2
cells below? Please let me know. Thank you in advance.

-------------------------------------------------------------------------

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If ActiveCell.Validation.Type = xlValidateList Then
ActiveCell.Offset(1, 0).Activate
End If
End Sub


'-------------------------------------------------------------------------


-M