VBA / Macro to copy and paste 100 rows iteratively

I have numerous spreadsheets approx 80K plus rows.

I need to copy cell a1 to a999 into a note pad file, then save that file as 20151, then go back to the spreadsheet and copy the next 1000 cells ie. a1000 to a1999, cop them to a notepad file and save as 20152.

And continue until I have copied all cells in the worksheet.

I am sure this is possible but have very little vba experience

Any help wold be great
Thanks
Ted

Just for clarification i want to be able to select cell A1:A999 (copy and paste) go back to excel and select a1000:a1999 then A2000:A2999. Thanks

Without selecting, copying and pasting

Please Login or Register  to view this content.

Thanks for your reply.

I think im doing someting wrong as the code errored and stated permission denied. Having run the debugger it stopped here

With CreateObject("Scripting.FileSystemObject").CreateTextFile(ThisWorkbook.Path & "\" & x & ".txt", True)

Im assuming I need to amend this part but not sure what with

Thanks
Ted