Thread: Auto delete columns

Hi

I currently use a spreadsheet to record weekly vehicle mileage. I'm looking for a way to automatically delete a column based on a cell value within the column when the vehicle goes off strength

What does "taken off strength" mean to us? And what do you mean by "automatically"? That's a very iffy concept.

Click a button and the columns "automatically" delete if appropriate
Change a value in a cell and the column "automatically deletes (crazy thought, IMO.)

Going by the key phrase "if G2 is blank" I wrote a macro that will delete any column that has blank cell in row2 starting at cell C2.

Your sample sheet had formulas, so when I deleted G2 to make it empty and ran the macro, it did what you wanted, but the formulas in the proceeding columns are broken by that process. FYI.

Option Explicit

Sub OffStrength()
Dim Rng As Range, cell As Range, LastCol As Long
LastCol = Cells(2, Columns.Count).End(xlToLeft).Column
Set Rng = Range("C2", Cells(2, LastCol))

    For Each cell In Rng
        If IsEmpty(cell) Then Columns(cell.Column).Delete shift:=xlToLeft
    Next cell
    
Set Rng = Nothing
End Sub

The on-demand macro is my suggestion, if it were "automatic"...what if you made a mistake? Oops.