gleicher monat prüfung

habe unter vba eine prüfung eingebaut mit folgendem code:
For z = 8 To 32
If Month(Cells(z, 1)) <> Month(Cells(z + 1, 1)) Then
Fehler = MsgBox("Sie haben unterschiedliche Monate aufgeführt.", vbOKOnly, "Fehlermeldung")
z = 32
Exit Sub
End If

die dazugehörigen zellen habe ich mit gültigkeit definiert. und zwar so: Einstellungen/Zulassen:Datum/zwischen/31.12.2002 und 31.12.2015.Die leeren zellen sollen ignoriert werden...
Jetzt passiert folgendes: Wenn ich die vba abfrage starte und in die betreffenden zellen monate im dezember eingebe funktioniert es. gebe ich aber werte aus dem januar ein nicht.

kann mir einer helfen?

Danke.

Gruss
Ralf
Next z