Active Cell / Data Validation question
 

I am using the code below to move the active cell one row down after
making a selection from a data validation list...

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

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


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


The problem I have is when I enter a value into a cell with data
validation other than list (decimal or whole number) that is above a
cell with a data validation list, the active cell moves 2 rows down.

Are there any ideas on how to force the active cell to the row
immediately below?

Thank you in advance.

-M