Foro Excel

Hola, estoy necesitando una Macro o codigo para , cuando este en determinada columna, de determinada hoja, cuando pulse "Pageup" o "Pagedown" , reste un numero o sume un numero.
tengo este codigo;:

Option Explicit

Sub ActivarOnKey()
Application.OnKey "{PAGEUP}", "SpinUp"
Application.OnKey "{PAGEDOWN}", "SpinDown"
End Sub

Sub SpinUp()
On Error Resume Next
If Not Intersect(Target, Range("E5:E10000")) Is Nothing Then
With Me
ActiveCell = ActiveCell + 1
Else
ActiveCell.Offset(-1, 0).Select
End If

End Sub

Sub SpinDown()
On Error Resume Next
If Not Intersect(Target, Range("E5:E10000")) Is Nothing Then
With Me
ActiveCell = ActiveCell - 1
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub

Que tal amigo, estoy descansando mi almuerzo, bueno veo que estas llamando de forma incorrectaa las teclas, solo cambiale por el nombre correcto "{PGUP}", "{PGdn}", te pego el codigo obviamente le quite eso de columnas o filas especificamente solo como ejemplo.

Option Explicit

Sub ActivarOnKey()
Application.OnKey "{PGUP}", "SpinUp"
Application.OnKey "{PGdn}", "SpinDown"
End Sub

Sub SpinUp()
On Error Resume Next

ActiveCell = ActiveCell + 1

End Sub

Sub SpinDown()
On Error Resume Next
ActiveCell = ActiveCell - 1
End Sub