The spin button control uses the SpinDown and SpinUp events to decrease and increase the value in cell B4
'Spin down event procedure for spin button
Private Sub SpinButton1_SpinDown()
With Range("B4")
'Decrease value in B4 by .05%. Stop at 0%
.Value = WorksheetFunction.Max(0, .Value - 0.0005)
End With
End Sub
Related examples in the same category