If you want the OnKey seq for this then
The key to the space is to place a space between the ^ (Control character) and End
<pre/>
Sub OnKey_Space()
Application.OnKey "^ ", "Test1"
End Sub
Sub Test1()
MsgBox "Here"
'//Reset
Application.OnKey "^ "
End Sub
</pre>