How to export one sheet to multi sheets by vba

[Faozan]

1.) While the import file will have many rows maybe more than 5000 rows, I want to cut 1-100 rows and then 101-201 loop file until to 5000 rows after that export to another excel by separate sheets 1-100, 101-201 .. next to ...

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]

Please stop posting the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.