How To "Share" Default Behavior With OnKey?

[johnywhy]

Halo

I want to run a macro with OnKey, but then I want the normal key behavior to execute.

Neither of these two approaches work; both produce an endless loop. I'd like a solution which will work with ANY single or combination keystroke.

Sub keyEvent()
Debug.Print "a typed"
With Application
.OnKey "a"
.SendKeys "a"
.OnKey "a", "keyEvent"
End With
End Sub

Public Sub keyEvent()
Debug.Print "a typed"
With Application
.EnableEvents = False
.SendKeys "a"
.EnableEvents = True
End With
End Sub

 

[RoryA]

I don't think you can do that with OnKey. Can I ask why - sounds a lot like keylogging to me.

 

[johnywhy]

What's keylogging?
The debug.print is just for testing purposes.

I don't want to stop normal key behavior, just add to it.

 

[RoryA]

Keylogging is recording the keystrokes that people make.