Shortcut für Zoomen

Sub MyZoomIn()
Dim ZP As Integer
ZP = Int(ActiveWindow.Zoom * 1.1)
If ZP > 400 Then ZP = 400
ActiveWindow.Zoom = ZP
End Sub

Sub MyZoomOut()
Dim ZP As Integer
ZP = Int(ActiveWindow.Zoom * 0.9)
If ZP 

[/code]
Nur weiss ich jetzt nicht genau, wie ich das konfigurieren muss damit ich die shortcuts immer verwenden kann. ich habe es so versucht:
1) ein neues excel sheet erstellt
2) bin in den visual basic editor gegangen - habe dort den code eingefügt
3) als .xla gespeichert
4) dann wieder in die excel ansicht dann auf Add-ins das entsprechende angeklickt, dann auf Alt-F8, dann unter optionen den shortcut festlegen.
wenn ich jetzt aber das sheet schließe und excel schließe und excel neustarte sind die shortcuts nicht mehr verfügbar, weiß jemand was hier falsch läuft?
lg