Deleting Columns in spreadsheet if column has not been edited.

[goblue667]

Hi I have a somewhat unusual question in my request here.

I have a spreadsheet where columns may be edited and if they have, I need to keep those and delete the rest. So if there were 45 rows, and only 1 of the 45 were edited, that whole column needs to be kept.

I have played around with the Review ribbon and added a Highlight Changes tool which displays a blue border around each cell that has been edited. Is there a way using VBA to delete those columns that do not have a blue border on them? Attached is a sample document of mine.

 

[rhmerrill]

Does the "Highlight Changes" tool simply change the cell properties to add a blue border if the cell has been altered? You could loop through each cell and look at the properties of that cell to determine if there are borders on. If you are using the actual cell properties to highlight changes though, it would make the coding easier if you used cell fill vs. borders as borders can sometimes get applied to adjacent cells too, which would cause confusion. If you can provide some more detail on your Highlight Changes tool, then I can mock up some VBA code