VBA to break out worksheets from a workbook

[James]

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

 

[Gary''s Student]

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

 

[James]

Gary,
This is great exactly what I needed. Thank you