Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Spin up event procedure for spin button

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