Set KeyPreview=true on form
locate code section for Form and KeyDown, and set as follows:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageUp Then KeyCode = 0: Exit Sub
If KeyCode = vbKeyPageDown Then KeyCode = 0: Exit Sub
End Sub
"Outside of a dog, a book is probably man's best friend; and inside of a dog, it's too dark to read" - G. Marx