Sub ExportToCSVs()
Dim ws As Worksheet
Dim nm As String
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Select
nm = ws.Name
 ActiveSheet.SaveAs Filename:="C:\put\folder\path\here\" & nm & ".csv", _
     FileFormat:=xlCSV, CreateBackup:=False
Next ws
Sheets("Sheet1").Activate
ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Sent"
End Sub