Macro to Sort Active Sheet and Set Page Breaks on Columns?

[misscrf]

I have this macro that cleans up the active worksheet that a user chooses to run the macro on (from a toolbar button). It changes the column heading, wraps a long column, autofits the text and sets the page setup.

An issue that I am having is with the page breaks. I need to sort the sheet by column B, and then break the pages on column B's value. So if it is sorted and Column B, Rows 1-3 have the value 000111, then Rows 4-8 have 000113, then there will be a new page starting at column 4.

This is the code for this portion of my macro:

Please Login or Register  to view this content.

When I run it, I get an error, highlighting the 2 from 'Set FromRow = 2' , and the error says "Object Required".

Can anyone help?

Thank you!

[misscrf]

I got it working, without error. Now the issue is that it isn't breaking on every number. It breaks on the first different value, but not the next one after that.

Here is my revised code:

Please Login or Register  to view this content.

The data looks exactly like this:

00000001100
00000001100
00000001100
00000001100
00000001100
00000001100
00000002100
00000002100
00000002100
00000002200
00000002200
00000002200

I have no control over how this looks. It's how it comes to me.

Any help would be great.