Macro For Saving As .txt

J

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
 
B

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
 
Top