Próbowałeś tak, przez podwójne kliknięcie w komórkę, zapisz kod vba w Arkuszu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim validationList As String
Dim cell As Range
On Error Resume Next
validationList = Target.Validation.Formula1
' Jeśli komórka ma opcje wyboru, wyświetl listę po podwójnym kliknięciu
If Not validationList = vbNullString Then
If cell Is Nothing Then
Set cell = Target
End If
cell.Select
SendKeys "%{DOWN}"
Cancel = True
End If
End Sub