Makro aktivieren mit Tastendruck

Private Sub Worksheet_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then
der ganze Code der laufen soll
End If
Geht leider nicht! Ist eigentlich auch logisch. NAtuerlich weiss ich auch das Ascii hier Leerzeichen ist. Aber auch das funktioniert nicht.
Zweite Variante aus der Forums Hilfe:
1) Ein Class Module erstellt sieht folgendermassen aus

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F9}"
End Sub


   


Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Application.OnKey "{F9}", "Updating"
End Sub


2) Ein Standard Module erstellt, was eigentlich aufgerufen werden soll bei F9

Sub Updating()

    Worksheets("Purchasing").Update = True

End Sub

Private Sub Update_Click()
der ganze Code
End Sub