Spinner Button to Scroll Document

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