Macro to export to CSV

Sub SaveCSV()
Application.DisplayAlerts = False

For Each mySheet In ActiveWorkbook.Worksheets
    ThisWorkbook.Sheets(mySheet.Index).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path + "\" + mySheet.Name + ".csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close
Next mySheet

Application.DisplayAlerts = True
End Sub