Delete entire column if all cells in a certain range are empty

Originally Posted by Richard Buttrey

Hi,

Create a helper row 1 and use =IF(SUM(C4:C1001)=0,"delete","keep")

Now use a macro along the lines of

Sub DeleteColumns()
    Dim x As Long
    For x = Range("G1:L1").Cells.Count To 1 Step -1
        If LCase(Range("G1:L1").Cells(1, x)) = "delete" Then Range("G1:L1").Cells(1, x).EntireColumn.Delete
    Next x

End Sub

Regards

That formula should of course be put in C1 and copied across to FZ1 and the Range in the macro refer to C1:FZ1 and not my test range of G1:L1

Regards