save each sheet as .csv

J

jsmonje

my file.xls has multiple worksheets. i am looking for a macro that will
save each sheet as a unique .csv using the name of the worksheet.
thanks in advance
 
N

Norman Jones

Hi JS,

Try:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

Set WB = ActiveWorkbook '<<=== CHANGE

On Error GoTo XIT
Application.DisplayAlerts = False
For Each SH In ActiveWorkbook.Worksheets
SH.Copy
With ActiveWorkbook
.SaveAs Filename:=ActiveSheet.Name, _
FileFormat:=xlCSV
.Close False
End With
Next SH

XIT:
Application.DisplayAlerts = True
End Sub
'<<=============
 
Top