WOW it works perfectly!!!
Kisses, hugs!!! Thanks!!!
/Hans

-----Original Message-----
Hi Hans

That is a little complicated and requires some Windows
API programming. See
Stephen Bullen's CheckKey.zip at
http://www.bmsltd.co.uk/Excel/Default.htm.

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Hans" skrev i melding
...
How do I implement something like:

For I = 1 To 10000
If KeyPressed='H' Then
Get out of the Loop (Or do something else)
End If
Next I

/Hans



.