Neues Jahr als Name des neu erstellen Sheets

ich hab ne Sache hier erstellt, da hakt es an folgendem Punkt:

er soll den 1.1. des neuen Jahres eintragen, also 1.1.2003

der code:

jahr = CStr(Year(Now))
...
nextjahr = CStr(Year(Now) + 1)
...
'Den 1.1. eintragen:
Range("B2").Value = "1/1/" & nextjahr

Er sollte also den 1.1.2003 eintragen, er schreibt aber 1.1.2002 hin. Weiss jemand wie das lösbar ist ??

Wäre sehr dankbar !!