Parse Functions‎ > ‎

Sheets to CSVs

  1. Save path defined by user
  2. Each sheet is saved to its own CSV file using the sheet name as the file name


Sub SheetsToCSV()
'Jerry Beaucaire (1/25/2010), updated (8/15/2015)
'Save each sheet to an individual CSV file

Dim ws As Worksheet, fPATH As String

Application.ScreenUpdating = False      'speed up macro
Application.DisplayAlerts = False       'automatically overwrite old files
fPATH = "C:\2015\CSV\"                  'path to save into, remember the final \ in this string

    For Each ws In Worksheets
        ActiveWorkbook.SaveAs Filename:=fPATH & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    Next ws

Application.ScreenUpdating = True
End Sub

Nothing says "thanks" like a steak dinner!
PayPal - The safer, easier way to pay online!