I have the following code. The trouble is that it is not calculating the sum.
The figure in cell BY7 is not changing...................Any ideas??

Private Sub SpinButton2_Change()
Application.Calculation = xlCalculationManual
Worksheets("Sheet4").Range("BY7").Value = SpinButton2.Value
Worksheets("Sheet4").Range("BY6").Value =
((Worksheets("Sheet4").Range("BY2") - Worksheets("Sheet4").Range("BY7")) * 28)
Application.Calculation = xlCalculationAutomatic
End Sub

ps: There is a textbox that is linked to cell BY7. It just displays the
value by code.
--
Tdp