I have following problem.
I wrote simple program which do one thing: it goes through number of cells in particular column and and cut first 10 chars from following 15/01/2006 13:28 so there is only date left without the time.
Here is my script:
Sub Date_Cut() Dim a As Integer Sheet2.Activate Sheet2.Range("F1").Select ActiveCell.FormulaR1C1 = "=COUNT(C[-1])" a = Range("F1") For i = 2 To a cut = Sheet2.Cells(i, 3).Value d = Left(cut, 10) Sheet2.Cells(i, 3) = d cut = Sheet2.Cells(i, 5).Value d = Left(cut, 10) Sheet2.Cells(i, 5) = d Next i End Sub
My problem is that after this script went through all data it occurs that dates were changed in following manner:
01/11/2006 was changed to 11/01/2006
I checked data format and it is dd/mm/yyyy.
I am very beginner and possibly i did something wrong, can you suggest me what else i should check?