When you face similar problems, Record Macro and compare the generated code to yours. Note that it uses Workbook.SaveAs
instead
For Each ws In wb.Worksheets
ws.Activate
wb.SaveAs Current_Directory & LCase(ws.Name) & ".csv", xlCSV ' check this line with Record Macro
Next