edit: все еще с использованием ключей отправки VBA.
На листе, где находится ячейка проверки данных (предполагается, что это ячейки A1: C1 на Sheet1), вставьте следующий код в модуль Microsoft Excel Sheet1модуль, содержащий код VBA, связанный с первым листом)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Err1:
If Target = Range("A1") Then
Application.SendKeys ("%{UP}")
End If
If Target = Range("B1") Then
Application.SendKeys ("%{UP}")
End If
If Target = Range("C1") Then
Application.SendKeys ("%{UP}")
End If
Err1:
'do nothing
End Sub