Split a workbook into multiple sheets with n number of rows

[dhanabharathi2]

My workbook is having 4 sheets. Sheet "A", "B", "C" & "D". Need to split the the workbook into multiple workbooks with each 25 rows.

When splitting the Sheet "A" the file name should be saved as Sheet 1 A.xls, Sheet 2 A.xls like that when it take data from Sheet "B", it should continue with Sheet 3 B.xls and same way it should do for other sheets also.

With my VBA knowledge I am not able to do this. But I am in need for help very badly. Will I get help?

[HaHoBe]

Hi, dhanabharathi2,

what about the sheets not reaching 25 rows (is it with header or without), should the number of records be raised to fit? Are the sheets of the same look? A workbook to play with could prove to be of some help in getting an answer.

Ciao,
Holger

[HaHoBe]

Hi, dhanabharathi2,

furthermore you should be more careful when talking about the target: is it worksheest inside a workbook (which one) or is it a new workbook for each sheet?

The code here assumes that these are all individual workbooks:

Please Login or Register  to view this content.

Or collect them inside the same workbook as new sheets:

Please Login or Register  to view this content.

Ciao,
Holger

[dhanabharathi2]

Thanks for your reply.

1. With heading
2. For sheets not reaching 25 rows, not to raise to fit.
3. All 4 sheets looks same.

Also, below given code is working for me. However heading is missing. Can you help me out.

Please Login or Register  to view this content.

[HaHoBe]

Hi, dhanabharathi2,

before we would be able to help you you would need to add code-tags to the procedure according to our Forum Rules (here especially #3).

Ciao,
Holger