Macro For Saving As .txt

[jshendel]

I want to have a macro in my Personal Macro Workbook where I can save a .xls
file as a .txt (tab-delimited) where I can type in a new name. Please help.
Thanks,
Josh

 

[Bob Umlas, Excel MVP]

Sub SaveAsTxt()
Dim Ans As String
Ans = Application.GetSaveAsFilename("", "text files, *.Txt")
If Ans <> "False" Then ActiveWorkbook.SaveAs Ans
End Sub