@מנצפכ
אני משתמש בקוד הזה הוא עובד לי מעולה
הקוד חל A1:A10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
If Target.Validation.Type = xlValidateList Then
Application.SendKeys "%{DOWN}"
End If
End If
End Sub