Macro to save worksheet

[Guest]

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

 

[Tom Ogilvy]

If this lcase(thisworkbook.name,4) = ".xls" then
ChDir "C:\Documents and Settings\My Documents\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\My Documents\" & _
application.Substitute(thisworkbook.name,".xls",".txt"), _
FileFormat:=xlText, CreateBackup:=False

End if

--
Regards,
Tom Ogilvy

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.

 

[Guest]

Tom

Problem solved, thanks for the assist.