Private Sub SpinButton2_SpinDown()
Range("B3").Value = DateAdd("m", -1, Range("B3").Value)
End Sub
Private Sub SpinButton2_SpinUp()
Range("B3").Value = DateAdd("m", 1, Range("B3").Value)
End Sub
Private Sub SpinButton3_SpinDown()
Range("B3").Value = DateAdd("yyyy", -1, Range("B3").Value)
End Sub
Private Sub SpinButton3_SpinUp()
Range("B3").Value = DateAdd("yyyy", 1, Range("B3").Value)
End Sub