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