Here is a sample:

Sub Macro1()
Dim s As Worksheet
For Each s In Sheets
s.Activate
t = s.Name
ActiveWorkbook.SaveAs Filename:="C:\test folder\" & t, _
FileFormat:=xlText, CreateBackup:=False
Next
End Sub
--
Gary''s Student - gsnu200908


"James" wrote:

I have an excel workbook with something like 30 worksheet tabs, I need to get
these tabs broken out to individual files. The name of the tabs is what I
would like to have the files named, but I also need them saved in a text tab
delimited file format. Is there a code that can do this for me?

Thank you