Converting a bunch of Excel tabs to individual files

[From here]

Sub AllSheetsToCSV()
For Each s In Sheets
s.Activate
ActiveWorkbook.SaveAs Filename:="csv_" & s.Name & "csv", FileFormat:=xlCSV
Next s
End Sub

To use: Open VBA editor. Create new module. Paste code into module. Hit play.

Advertisements