OUTPUT_00000-00099.csv

OUTPUT_00100-00199.csv

OUTPUT_00200-00299.csv

...

Where each one contains:

"101303,Emp101303,5/3/1986

"101304,Emp101304,5/11/195

"101305,Emp101305,5/8/1966

"101306,Emp101306,5/3/1985

...

```
Option Explicit
Const STEPSIZE As Integer = 100
Sub ExportChunks()
Dim r As Long ' r = input sheet row
Dim l As Long ' l = line # of output
Dim f As Long ' f = field number of record
Dim s As String ' an output record
Dim fName As String
Dim DestFile
Let r = 0
While r <= ActiveSheet.Cells(65535, "A").End(xlUp).Row
Let fName = "C:\OUTPUT_" & Format(r, "00000") & "-" & Format(r + STEPSIZE - 1, "00000") & ".csv"
' Attempt to open destination file for output.
Open fName For Output As #1
Let l = 0
While (l < (r + STEPSIZE - 1)) And (l <= ActiveSheet.Cells(65535, "A").End(xlUp).Row)
Let f = 2
Let s = ActiveSheet.Cells(r + l + 1, 1).Value
While f <= ActiveSheet.Cells(r + l + 1, 255).End(xlToLeft).Column
s = s & "," & ActiveSheet.Cells(r + l + 1, f).Value
Let f = f + 1
Wend
Write #1, s
Let l = l + 1
Wend
Close #1
r = r + STEPSIZE
Wend
End Sub
```