Is this possible?

Is this possible?

Sub PgUp()
'
' PgUp Macro
    ActiveWindow.LargeScroll Down:=-1
End Sub
Sub DoublePgDn()
'
' DoublePgDn Macro
    ActiveWindow.LargeScroll Down:=2
End Sub
Sub DoublePgUp()
'
' DoublePgUp Macro
    ActiveWindow.LargeScroll Down:=-2
End Sub