Delete columns where all cells are empty

[RogerC]

My spreadsheet has 350 columns, many of which contain only a header. Other columns may contain both values and blank cells.

Is there a non-VBA method to find and delete all columns where there are only blank cells below the header?

The 'Go To... Blanks' method to find blank cells won't work, because I don't want blank cells deleted from columns where some cells have data.

 

[JoeMo]

Thanks johnnyL.'s code (CountA(Columns(col)) = 1) doesn't catch completely empty columns. Try CountA(Columns(col)) <= 1 instead.

Your code seems to work with the exception of 5 columns. After running the macro the total number of columns went from 350 to 133. However, 5 columns within those 133 contain only Blank cells.

Of course, deleting them manually is manageable now, but do you have any idea why they would not have been deleted?

Johnny