I need help writing a macro that I can place in a .xlt file.

The .xlt file is modified and saved as a .xls file.The macro will allow me to automatically save a worksheet from the workbook as a tab delimited text file with the same name as the .xls file without prompting for a file name

Current macro that I am using is:

ChDir "C:\Documents and Settings\My Documents\
ActiveWorkbook.SaveAs Filename:=
"C:\Documents and Settings\My Documents\" & InputBox("File Name ?"),
FileFormat:=xlText, CreateBackup:=Fals

Thank