Hello, what's up?

Well, I have a macro to convert all information in "general" to Date format "d/mm/yyyy hh:mm". When I apply this macro and look in cells format, a cell is date format, but excel dosen't know that. I have to get in a cell With f2 botton and click "enter" to the format to be recoganize. Why that????? IF I do for excel (text to column) works perfect.
Somebody know how I correct that?

Macro to import cvs and convert column D:D

'Importa arquivos e preenche tabela através do Array.
Private Sub import()
Dim ImportFile As Variant

spath = CurDir
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path

On Error GoTo ws_exit
    Application.EnableEvents = False
    
ImportFile = Application.GetOpenFilename(filefilter:="csv Files (*.csv),*.cvs", MultiSelect:=False)

Workbooks.Open Filename:=ImportFile

Workbooks.OpenText Filename:=ImportFile, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, xlDMYFormat, 1, xlDMYFormat), Array(4, xlDMYFormat, 1, xlDMYFormat), Array(5, 1), Array(6, 1), Array(7, 1)), _
        ThousandsSeparator:=Period, TrailingMinusNumbers:=True

Columns("D:D").Select
    Selection.TextToColumns Destination:=Range("D:D"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, xlDMYFormat, 4, xlDMYFormat), TrailingMinusNumbers:=True


'Call Substituir_txt

ws_exit:
    Application.EnableEvents = True

End Sub