Spaltenwechsel nach Enter

Sub mach_was()
Application.OnKey "^{ENTER}", "erhoehen"
End Sub

Sub erhoehen()
On Error Resume Next
ActiveCell = ActiveCell + 0.5
End Sub

Soweit so gut. Jedoch muß ich nach der Ausführung nochmals die ENTER-Taste drücken, damit der Cursor in die nächste Spalte springt. Selbst der Befehl: SendKeys "{ENTER}", True
hilft nicht.
Wer kann mir helfen??

Gruß Harry