How to separately save spreedsheets from the same workbook

[anaipa]

Hello

How can I save spreedsheets from the same .xls workbook maintaining the tab
name on my desktop in .txt format?

Txs

 

[Ron de Bruin]

You can change the save line in this example
http://www.rondebruin.nl/copy6.htm

 

[Ron de Bruin]

Below the macro you can see how you must change it for TXT files

 

[Gary''s Student]

Try this macro:

Sub Macro1()
s1 = "C:\Documents and Settings\Owner\Desktop\"
For Each sh In Sheets
sh.Activate
s2 = sh.Name & ".txt"
ActiveWorkbook.SaveAs Filename:=s1 & s2, FileFormat:=xlText
Next
End Sub