title: How to save as .txt in vba
body: <p>I am looking to have my Macro save a new sheet that i created as a .txt file. this is the code i have so far.  </p>
  
  <pre><code>Sub Move()  
  '  
  ' Move Macro  
  '  
  ' Keyboard Shortcut: Ctrl+m  
  '  
  Sheets("Sheet1").Select  
  Range("A1").Select  
  Range(Selection, Selection.End(xlToRight)).Select  
  Range(Selection, Selection.End(xlDown)).Select  
  Selection.Copy  
  Workbooks.Add  
  ActiveSheet.Paste  
  
  ActiveWorkbook.SaveAs Filename:="e:" &amp; _
  "HDR" + Format(Now(), "YYYYMMDDhhmmss") &amp; ".txt"
  
  End Sub
  </code></pre>
  
  <p>That includes my macro. I am having trouble with the last part where it saves as a .txt file.<br>
  I am currently getting a bunch of crap on my .txt file, here is an example,<br>
  "PK     ! !}ñU{  Š   [Content_Types].xml ¢(                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ÌTÝNÂ0¾7ñ–Þš­€‰1†Á…â¥’ˆPÚ3¶ÐµMOÁñöž•Ÿ¨".<br>
  Any help would be great. </p>