Hello I am a newbie and need help
 

I have got a Spreadsheet that has 2310 entries down Column A. I need to
run something that will split it into groups of 100 and export it to
separate .csvs or text files. Can anyone help please before I lose all
of my hair.


--
Shaunclippo
------------------------------------------------------------------------
Shaunclippo's Profile: http://www.excelforum.com/member.php...o&userid=32121
View this thread: http://www.excelforum.com/showthread...hreadid=518754

Hello I am a newbie and need help
 

Dim sh as Worksheet, i as Long
set sh = Activesheet
for i = 1 to 2310 step 100
workbooks.Add xlWBATWorksheet
sh.cells(i,1).Resize(1,100).copy Destination:= _
ActiveWorkbook.worksheets(1)
ActiveWorkbook.SaveAs "C:\MyFolder\File" _
& i & ".csv", FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
Next

--
Regards,
Tom Ogilvy


"Shaunclippo"
wrote in message
...

I have got a Spreadsheet that has 2310 entries down Column A. I need to
run something that will split it into groups of 100 and export it to
separate .csvs or text files. Can anyone help please before I lose all
of my hair.


--
Shaunclippo
------------------------------------------------------------------------
Shaunclippo's Profile:
http://www.excelforum.com/member.php...o&userid=32121
View this thread: http://www.excelforum.com/showthread...hreadid=518754