Active Cell & Data Validation question

[michael]

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

 

[Bob Phillips]

Check Tools>Options>Edit and see if the Move direction after Enter checkbox
is ticked.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)