Private Sub SpinButton1_SpinDown()
Set r = Range("a1:aa17")
If Not Intersect(r, ActiveCell) Is Nothing Then
Select Case ActiveCell
Case Is = 150
ActiveCell.ClearContents
Case Is < 1000
ActiveCell = ActiveCell - 50
Case Is = 1000
ActiveCell = ActiveCell - 50
Case Is < 10000
ActiveCell = ActiveCell - 100
Case Is = 10000
ActiveCell = ActiveCell - 100
Case Is < 50000
ActiveCell = ActiveCell - 250
Case Is = 50000
ActiveCell = ActiveCell - 250
Case Is < 100000
ActiveCell = ActiveCell - 500
Case Is = 100000
ActiveCell = ActiveCell - 500
Case Else
ActiveCell = ActiveCell - 1000
End Select
If ActiveCell <= 150 Then ActiveCell = 150
ActiveSheet.Select
End If
End Sub