I want to save multiple sheets by the name itself. And that are converted from .xlsx to .csv (separated by commas).
I want to save multiple sheets by the name itself. And that are converted from .xlsx to .csv (separated by commas).
RESOLVED:
Sub guardar()
Dim folha As Worksheet
For Each folha In ActiveWorkbook.Worksheets
folha.SaveAs "C:\Users\" & Environ("Username") & "\Desktop\CSV\" & folha.Name & ".csv", xlCSV
Next
End Sub