Private Sub SpinButton1_SpinUp() With Range("B4") 'Increase value in B4 by .05%. Stop at 1% .Value = WorksheetFunction.Min(0.01, .Value + 0.0005) End With End Sub