Do you see a syntax error in this? Especially in the second line.


Private Sub SpinButton1_Change()

If SpinButton1 >= -1 And SpinButton1 _

<= 1 Then dDate = Calendar1