Day and Month Spinner VBA

Hi N,

Try:

Private Sub SpinButton1_SpinDown()
Dim D As Date, N As Integer
On Error Resume Next
If Range("o1") = 1 Then
Range("o2").Value = Range("o2").Value - 1
Else
D = Range("P2").Value
Select Case Month(D)
Case 3: N = 29
If Year(D) Mod 4 Then N = 28
Case 5, 7, 10, 12
N = 30
Case Else: N = 31
End Select
Range("o2").Value = Range("o2").Value - N
End If
Calculate
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
Dim D As Date, N As Integer
If Range("o1") = 1 Then
Range("o2").Value = Range("o2").Value + 1
Else
D = Range("P2").Value
Select Case Month(D)
Case 2: N = 29
If Year(D) Mod 4 Then N = 28
Case 4, 6, 9, 11
N = 30
Case Else: N = 31
End Select
Range("o2").Value = Range("o2").Value + N
End If
Calculate
End Sub