Dropdown un NumLock

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Invalidation As Integer
On Error Resume Next
Invalidation = Target.Validation.Type
On Error GoTo 0
If Invalidation  0 Then
SendKeys ("%{Down}")
End If
End Sub