Timer on Drop-Down List

[franke15]

I want to have a timer that if you are on a drop down menu for too long, it moves you to a different cell. Here is what I have:

Sub DropDownTimer()
If ActiveCell = Range("C8") Then
Range("C9").Select
End If
Application.OnTime Now + TimeValue("00:00:30"), "DropDownTimer"
End Sub

This selects C9 if the user is on C8 for 30 seconds.

However, if the user clicks on the right-side pull down arrow for the drop down list, the macro waits until the user does an action before moving.

I would like this timer to work even while the user is selecting. Any ideas? Thanks