I tried your code, and it works perfect for me. So that was the solution I needed for this odd problem. Had to put on an On Error handling, because I go error in then end of scrolling.
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo MouseWheel_Error
If...