VBA to break out worksheets from a workbook

  • Thread starter Thread starter James
  • Start date Start date
J

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
 
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
 
Back
Top