[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