How to Export Worksheets to separate excel by sheet just have 1-100 row to file with vba

[Faozan]

While import file will have many row maybe more than 5000 row, so I want to cut 1-100 row to in 1 excel and then 101-201 loop file until to 5000 row.

Sub test()
Sheet60.Range("A1:BX100").Copy
Workbooks.Add
Application.DisplayAlerts = False
ActiveSheet.Paste Destination:=Range("A1")
ActiveWorkbook.SaveAs ("D:\Implement\")
ActiveWorkbook.Close
Application.DisplayAlerts = True

 

[Fluff]

Duplicate to: How to create by 1-100 row to 1 sheet then loop next to...

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.