VBA to Split and/or Unsplit worksheet

I'm looking for a VBA routine to Split and Unsplit worksheet. For some reason I have a routine that is splitting my screen and I can't figure out where it is doing this. When the screen is split, other procedures fail. If I manually "unsplit" the screen all work fine. I'd like to just add an Unsplit code to fix this.

Thanks,
Steve K.

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

Hope this helps.

Regards,

Greg M

Hi again,

Using the Workbook_Open (rather than the Auto_Open) routine seems to work for me:

Please Login or Register  to view this content.

Obviously the above code must be entered in the "ThisWorkbook" VBA CodeModule.


Does this help?

Regards,

Greg M

Thanks again Greg, I truly appreciate your input and concern.

I placed the code in ThisWorkbook but it did not close or hide or remove or unsplit or whatever. The worksheet is still split. I could manually unsplit. I first just added the code to ThisWorkbook but did not work. I next removed (changed the name of) Auto_Open so it did not run - only had ThisWorkbook was enabled but it still did not "unsplit" the worksheet.

Hi again,

Ok, what I did was to:

1. save the workbook with the "Workbook_Open" routine included;

2. perform a "four-way split" at a random location on the screen;

3. save the workbook again;

4. close the workbook;

5. re-open the workbook - the split was no longer present.

My system uses Excel 2016.

Maybe you can identify something you did/didn't do at your end?

Regards,

Greg M

Greg,

I think I found a work-around. I added a line to the beginning of your code "ActiveWindow.SplitRow = 4" and now all appears to be working fine. I placed the code in the Workbook_Open sub as I believe this kicks off before Auto_Open. I was never aware of Workbook_Open - I like it.

Thanks again for your time - much appreciated,
Steve

Hi again Steve,

Many thanks for your feedback - much appreciated!

I think that "Auto_Open" was superseded by "Workbook_Open", but remains available in order to provide backwards-compatability.

You're welcome - glad I was able to help.

Regards,

Greg M