Test Paper with cell Selection in a given time

Dear All,
I just want to select a cell(Specific cell) means when i select a specific cell then "yes" is pasted in it. and also i want to introduce a timer of 2 minute like in a paper(if no cell is selected and if the timer end then nothing is pasted).
Thanks

Sub test()
Dim a As Integer
If Range("B3").Activate Then
Range("B3").Value = "Yes"
If Range("B9").Activate Then
Range("B9").Value = "Yes"
If Range("B14").Activate Then
Range("B14").Value = "Yes"
End If
End If
End If
End Sub

Hi, syed01,

you should consider to give this thread a more meaningful title as requested per Forum Rule #1.

And please let 24 hours pass before you bump your post.

Ciao,
Holger

Hello syed01,

Maybe something along the attached sample Workbook?

Regards