title: Date changed to number format when sheet imported. Excel VBA
body: <p>Anyone knows how to solve this problem? Before importing the data, the date appears to be fine when opened, this is the format:</p>
  
  <pre><code>Release Date    Created
  24/04/2014      10/03/2014 20:32
  </code></pre>
  
  <p>But after importing into a fresh sheet on my workbook, the date is changed into 5 digits of numbers shown below.</p>
  
  <pre><code>Release Date    Created
  41753           41708.85556
  </code></pre>
  
  <p>How am I supposed to solve the issue when importing into my sheet? The following is my code for importing sheet to my project.</p>
  
  <pre><code>Sub ImptSht()
      Dim altwb As Workbook
      Dim FilePathalt As String
      Dim activeWB As Workbook
  
      Set activeWB = Application.ActiveWorkbook
  
      FilePathalt = "C:\DataSheet\workbook.xls"
  
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
  
      Set altwb = Application.Workbooks.Open(FilePathalt, Local:=True)
  
      altwb.Worksheets(1).Copy After:=activeWB.Sheets(activeWB.Sheets.Count)
      altwb.Close False
  
      activeWB.Sheets("shet").Cells.AutoFilter
      activeWB.Sheets("shet").Cells.ClearFormats
  
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
  
  End Sub
  </code></pre>
  
  <p>Any help is greatly appreciated!</p>