Excel - Validar fechas

Buenas tardes foreros, de nuevo con problemas jejejeje
hace unos dias JuanC me arreglo un codigo para controlar fechas y lo dejo asi:

If TextBox6 = "" Then
MsgBox "Introdueixi la DATA D'ENTRADA del material"
TextBox6.BackColor = &HFF00&
TextBox6.SetFocus
Exit Sub
End If
If CDate(TextBox6) > Date Then
MsgBox "data incorrecte"
TextBox6.SetFocus
Exit Sub
End If
If Year(CDate(TextBox6)) <> Year(Date) Then
MsgBox "No correspon al any vigent"
TextBox6.SetFocus
Exit Sub
End If

el problema es que necesito que en diciembre me permita poner fechas del año siguiente y en enero del pasado, lo he intentado pasando la fecha a una variable pero no me sale, alguien me puede ayudar?

Mil gracias de antemano

sinceramente no recuerdo haber hecho ese código... ni se parece a mi estilo...
deberías cambiar

If Year(CDate(TextBox6)) <> Year(Date) Then

por algo +/- así:

If Year(CDate(TextBox6)) <> Year(Date) Then
If (Month(CDate(TextBox6)) = 12 And Month(Date) = 1) Or _
(Month(CDate(TextBox6)) = 1 And Month(Date) = 12) Then
'//OK
Else
'//Incorrecto
End If
End If

Saludos desde Baires, JuanC

Mil gracias por la respuesta,creia sinceramente que fuiste tu pero por no buscar la respuesta en los post anteriores ......... ahora mismo me pongo a ver si lo consigo .... aunque creo que voy a tener que eliminar la restricción del año .... yo habia probado mas con algo como

anyant = Year(CDate(TextBox6)) - 1

que ya dije que no funciono.

Mil gracias

Gracias JuanC, con tu modificación me he dado cuenta que debia trabajar con los meses y no los años he modificado el codigo para que me deje trabajar con 2 meses de retraso y uno de adelanto.
Se lo adjunto por si a alguien le puede servir.
De nuevo gracias por tu tiempo


If TextBox6 = "" Then
MsgBox "Introdueixi la DATA D'ENTRADA del material"
TextBox6.BackColor = &HFF00&
TextBox6.SetFocus
Exit Sub
End If
If CDate(TextBox6) < Date - 60 Or CDate(TextBox6) > Date + 30 Then
MsgBox "data incorrecte"
TextBox6.SetFocus
Exit Sub
End If
If Month(CDate(TextBox6)) = Month(Date) - 2 Or _
Month(CDate(TextBox6)) = Month(Date) + 1 Then
MsgBox "No correspon al periode compres"
TextBox6.SetFocus
Exit Sub
End If