I use a macro to copy the date from the input form (on sheet1) to the
table on sheet2 with this code:

Dim Row As Integer
Row = 3
Do While Worksheets("SHEET2").Cells(Row, "A") < ""
Row = Row + 1
Loop
Worksheets("SHEET2").Cells(Rij, "B") =
Worksheets("SHEET1").Range("C3")
--more code follows to copy the other cells form the input form to the
table--

Mysteriously the date changes when copied to sheet2:
e.g. 20-02-2006 becomes 21-02-2010.
Exactly 4 years is added: 4 x 365 + 1 (leapday)
When I put format to "standard" the problem does not occur.

Can the reason be "Dim Rij As Integer"?
How do I solve the problem?


--
digicat
------------------------------------------------------------------------
digicat's Profile: http://www.excelforum.com/member.php...o&userid=14920
View this thread: http://www.excelforum.com/showthread...hreadid=514346