Syntax error

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

David,

See changes in BOLD:

Private Sub SpinButton1_Change()

If SpinButton1.Value >= -1 And SpinButton1.Value _

<= 1 Then dDate = Calendar1

Hope this Helps,
theDude