Regarding splitting the files

[sekharsapcrm26]

Dear Experts ,

Can you please help me how here.

I have a excel file which contains of 50 thousand records data. Now I want to convert this file into notepad but every notepad file should have limit of 5000 records only.like that I should get 10 files.
Please help me in this issue , is there any way to do .

Regards,
rajasekhar

 

[Puertorekinsam]

Try this:

Sub saverecords()


Dim wb As Workbook
Dim ws As Worksheet, ws1 As Worksheet
Set ws = ActiveSheet
Set wb = ThisWorkbook
MyDir = ThisWorkbook.FullName
MyType = ThisWorkbook.FileFormat

x = InStrRev(MyDir, "\")


Application.DisplayAlerts = False
For i = 1 To 50000 Step 5000
Set ws1 = ThisWorkbook.Sheets.Add
ws.Range(ws.Rows(i), ws.Rows(i + 4999)).Copy ws1.Cells(1, 1)

ws1.SaveAs Left(MyDir, x) & i & "_to_" & (i + 4999) & ".txt", xlTextWindows
ws1.Delete
Next
ws.Activate

wb.SaveAs MyDir, MyType
Application.DisplayAlerts = True

End Sub