Spinner Button to Scroll Document

[excelerating]

I'm trying to use this spinner button to scroll through a document to the left or right 7 cells at a time.

I've tried the following code and others, but can't get it to work.

Private Sub SpinButton1_Change()

End Sub

Private Sub SpinButton1_SpinDown()

With Range("B2").Select = .Select + 7

End With

End Sub


Private Sub SpinButton1_SpinUp()

With Range("B2").Select = .Select + 7

End Sub
​

Thx in advance

 

[Legacy 98055]

See the smallscroll method in VBA help. In any case, maybe you are looking for something along the lines of:

Private Sub SpinButton1_SpinDown()

    On Error Resume Next
    ActiveCell.Offset(, -7).Select

End Sub


Private Sub SpinButton1_SpinUp()

    On Error Resume Next
    ActiveCell.Offset(, 7).Select

End Sub