Hi,

I would like to create a SpinButton with which I change
from one cell to the next one (up and down).

I tried this:

Private Sub SpinButton1_Change()
With SpinButton1
.Min = 1
.Max = 10
Cells(.Value, 1).Select
Cells(.Value, 1) = .Value
End With
End Sub

The problem is that the "Cells(.Value, 1).Select" doesn't
work properly. But the values in the cells are like
expected "Cells(.Value, 1) = .Value". If you use the code
above you can see what I mean.

Many thanks for help.
Best regards,
Marlon