用VBA转换文本文件日期格式问题

我用VBA 把excel文件转换为文件文件，可是转换成的文本文件中的日期格式与excel格式不对，在excel中日期格式为2008-11-8，而转换文本格式后日期格式却变为11/8/2008，麻烦高手解决一下，使用转换后的文本格式文件中的日期格式不变仍为2008-11-8。在这里先谢谢了。

改一段
      Selection.Copy
      Workbooks.Add (1)
      With ActiveWorkbook.ActiveSheet
         .Paste
         For Each cel In .Range(.[b2], .[b65536].End(xlUp))
            If IsDate(cel) Then cel.Value = "'" & Format(cel, "yyyy-mm-dd")
         Next
      End With
      Application.CutCopyMode = False