title: Combined multiple CSV files to single worksheet maintaining date time formatting
body: <p>So I have been going around in circles trying to find an answer to what should be a basic file combination. 
  I have a weeks worth of CSV files generated.
  I need to combine the files into a single worksheet with the data stacked
  Original file has 2 of the columns that are date and time combined (d/mm/yyyy h:mm:ss)</p>
  
  <p>I have my VBA code combining the data as required but the time formatting is screwed in the master file (d/mm/yyyy h:mm)</p>
  
  <p>Can someone help please with my code :(</p>
  
  <pre><code>            Option Explicit
  
  
              Sub ImportCSVsWithReference()
              'Summary:   Import all CSV files from a folder into a single sheet
              '           adding a field in column A listing the CSV filenames
  
              Dim wbCSV   As Workbook
              Dim wsMstr  As Worksheet:   Set wsMstr = ThisWorkbook.Sheets("MasterCSV")
              Dim fCSV    As String
              Dim fList As String
              Dim fName As String
              Dim fd As FileDialog
              Dim FileChosen As Integer
              Dim FileName As String
              Dim i As Integer
              Dim wbCSVDisplayOrder As Long
              Dim M As Long
  
  
  
                                                          'Select the correct files for merge
  
              Set fd = Application.FileDialog(msoFileDialogFilePicker)
  
              'use the standard title and filters, but change the
              'initial folder
                      fd.InitialFileName = "C:\RTVis\OT"
                      fd.InitialView = msoFileDialogViewList
              'allow multiple file selection
                      fd.AllowMultiSelect = True
                      FileChosen = fd.Show
                      If FileChosen = -1 Then
              'open each of the files chosen
                      For i = 1 To fd.SelectedItems.Count
                      Workbooks.Open fd.SelectedItems(i)
              Next i
              End If
  
                                                          'clear master page of previous data
  
              If MsgBox("Clear the existing MasterCSV sheet before importing?", vbYesNo, "Clear?") _
                  = vbYes Then wsMstr.UsedRange.Clear
  
              Application.ScreenUpdating = False  'speed up macro
  
                                                          'Combine files
  
              'start the CSV file listing
              fCSV = Dir(fName &amp; "*.csv")
  
  
                  Do While Len(fCSV) &gt; 0
                    'open a CSV file
                      Set wbCSV = Workbooks.Open(fName &amp; fCSV)
  
                    'copy date into master sheet and close source file
                      ActiveSheet.UsedRange.Copy wsMstr.Range("A" &amp; Rows.Count).End(xlUp).Offset(0)
                      wbCSV.Close False
                    'ready next CSV
                      fCSV = Dir
                  Loop
  
              Application.ScreenUpdating = True
              End Sub
  </code></pre>