One way to achieve the same result can be to insert an ActiveX button.
Place this code in the button:
Code:
Range("A1").Value = Range("A1").Value + 1
When the button is clicked once by the mouse it will stay active and you can hit the button again and again by hitting the space bar.