Dear all,



I have writen some code that takes a CSV file and converts it into an Excel format.



My problem is, when I perform this function manually through Excel the excel sheet formats correctly with all dates in UK format.

But when I perform the exact same function via VBA any dates that can be read in US version format that way.



Example: - Manually ,01/12/2008, becomes 01/12/2008

VBA ,01/12/2008, becomes 12/01/2008



Can you enlighten me as to what is going wrong when performed via VBA?



Code:
ChDir "I:\H925 Buying\Scott Atkinson\Projects\Import Tracker\DHL reports"
    Workbooks.Open Filename:= _
        "I:\H925 Buying\Scott Atkinson\Projects\Import Tracker\DHL reports\Booked not Shipped Report.xls"
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveWorkbook.SaveAs Filename:= _
        "I:\H925 Buying\Scott Atkinson\Projects\Import Tracker\DHL reports\Booked not Shipped Report.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close