Comment enregistrer sous .txt en vba

Je suis à la recherche de ma Macro enregistrer une nouvelle feuille que j'ai créé comme un .fichier txt. c'est le code que j'ai jusqu'ici.

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:" & _
"HDR" + Format(Now(), "YYYYMMDDhhmmss") & ".txt"

End Sub

Qui comprend ma macro. Je vais avoir des ennuis avec la dernière partie où il enregistre en tant que .fichier txt.
Je suis actuellement à obtenir un tas de merde sur mon .fichier txt, voici un exemple,
"PK ! !}ñU{ Š [Content_Types].xml ¢(  ÌTÝNÂ0¾7ñ–Þš€‰1†Á...⥒ˆPÚ3¶ÐµMOÁñöž•Ÿ".
Toute aide serait super.

Pour info, vous ne pouvez pas enregistrer plusieurs feuilles dans un fichier texte. Si vous essayez manuellement, vous serez averti que seule la feuille active sera sauvé.

OriginalL'auteur Tony Bergeson | 2014-10-01