Columns and Data disappear when Macro finished running

Guessing your code doesn't do what you think it does, or does more than it should. You haven't shared the code or the workbook so, probably no-one here does know how to fix it.


Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file and a mocked up solution.

Your code does not change anything on the ActiveSheet. If it was blank beforehand, it would be blank afterwards (and vice versa).

Your code selects whatever is the next sheet to the ActiveSheet and performs actions on it. It inserts five columns and adds headings and formatting on row five. If the last sheet in the workbook were selected before running this code, it would fail because there would be no next sheet. Because the last action relates to cell D5, that cell is left selected.

I think using ActiveSheet.Next is poor programming as you cannot guarantee what the Active sheet is, let alone what the next sheet looks like.

That said, it could be more efficient.


My take on it:

Please Login or Register  to view this content.

Your code:

Please Login or Register  to view this content.

Sorry, should have said, I'm not sure what output you expect. Your code does as you describe: goes to the next sheet, autofits all columns, inserts five columns, inserts headings on row five, and formats cell D5.

The rest of the columns will be moved over. The new columns will be empty apart from the headings.

My code does not select the sheet, nor any columns, nor any cells, so the Active sheet and the Active cell will remain unchanged.

You're welcome. Thanks for the rep.