Const
out
As
String
= "c:\temp\"
Sub
CSV()
Dim
WS
As
Worksheet
Set
WS = ActiveSheet
ls = WS.Cells(1, Columns.Count).
End
(xlToLeft).Column
For
i = 1
To
WS.Cells(Rows.Count, 1).
End
(xlUp).Row
Step
900
With
Sheets.Add(, Sheets(Sheets.Count))
WS.Cells(i, 1).Resize(900, ls).Copy .Range(
"A1"
)
.SaveAs out & .Name &
".csv"
, xlCSV
.Delete
End
With
Next
End
Sub