Private Sub SpinButton1_Change()
Range("A1").Offset(SpinButton1.Value, 0).Select
End Sub
Private Sub SpinButton1_GotFocus()
Range("A1").Offset(SpinButton1.Value, 0).Select
End Sub
Private Sub SpinButton2_Change()
Range("A1").Offset(SpinButton1.Value, 0).Value = SpinButton2.Value
End Sub