Double Click Button

Hey folks! Thanks in advance for any help. I'm a beginning Excel user and teacher looking to create a self-grading mouse test for my computer lab students. I just need to be able to have text appear on double clicking a button. I had no problem doing the single click button. I just need a little help changing the activation setting to double click. Here's how what I need to do looks like without the Double Click:

Sub Macro3()
Range("E21").Select
ActiveCell.FormulaR1C1 = "Correct!"
End Sub

Super easy, but stumped me with only the help files to work from. I'd also love any explanations of the concepts involved so I can repeat this process in similar situations. Thanks again.

I suppose that you are creating your button from the Forms commandbar? Create an activeX commandbutton from the Control Toolbox and you will have an easier go of it in this case.

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

This is a native event that is waiting for you to use it.

Here is another option fo ryou. If you want the cell you are double-clicking to say "Correct!" by double-clicking on it, try this:

- right-click on the sheet tab and select view code
- copy the following code to the VBA window:

Please Login or Register  to view this content.

HTH,
Jason

Thanks for both suggestions. The Active X route is the way I think I'll go. I want the button to remain saying 'Double Click Here!' while the cell immediately to the right displays correct or maybe a smiley.

I didn't try Active X before. I had encountered that code in the help file but didn't connect it to Active X. I knew there had to be a more 'native' way to do it. I should be good now. I'll report back with results.

Thanks again! The Active X button worked out great! I haven't used the Control Toolbox Toolbar at all yet. It was a good little adventure. Once I figured out how to toggle design mode, it was super easy as promised.

I teach in a computer lab that pulls students from various Adult Education classes (ESL and GED). This little button will be part of a self-grading mousing and typing test that will condense two separate documents used each twice a semester each 12 weeks with 150-200 students. Each year that's 4 x 2 x 175 tests I don't need to grade or print out hard copies for. This will save me hours and hours of work. The bonus for studens is instant feedback about the correctness of their actions. They will KNOW when they have it right. This makes them much more determined and dramatically improves their engagement and retention. Your little help goes a long way.

One more super thanks!