Imported text 12/8/2017 becomes 8/12/2017

[terrypin]

Hopefully my illustration describes why I'm baffled by this issue:

DatePuzzle-01.jpg

I've shown the import macro below in full. But the problem must arise in the first section, before calling the other three macros which further manipulate the imported text.

Sub ImportFile_Copy()
'
' ImportFile_Copy Macro
' Imports the TXT file _
' C:\Users\terry\Dropbox\Excel+VBA (Sundry)\TEMP-VariableList.txt
    
    Workbooks.OpenText Filename:= _
        "C:\Users\terry\Dropbox\Excel+VBA (Sundry)\TEMP-VariableList.txt", Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
        TrailingMinusNumbers:=True
        
    Windows("TEMP-VariableList.txt").Activate
        
   ' Change size & position
    Application.Left = 782.75
    Application.Top = 1.25
    Application.Width = 658.5
    Application.Height = 879.5
' Set col A & B width to 26 & 88 and align both left
    Columns("A:A").ColumnWidth = 26
    Columns("A:A").HorizontalAlignment = xlLeft
    'Columns("B:B").Select
    Columns("B:B").ColumnWidth = 26
    'Selection.ColumnWidth = 88
     Columns("B:B").HorizontalAlignment = xlLeft

Call CopyFromTXTtoTrackData
Call ConvertToLink
Call FormatTrackdata
Cells(1, 1).Select

'Close text file (and Save)
    Windows("TEMP-VariableList.txt").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close

End Sub

It's almost as if Excel's Import Wizard ignores regional settings and uses the USA standard. And I'm almost certain this was working smoothly a few days ago... Could it be yet another Win 10 WU issue?

I've spent hours trying in vain to see what's wrong, so help would be much appreciated please!