HOW CAN I DELETE A COLUMN BASED ON A CONDITION

[ya]

I want to delete an entire column if it is EMPTY

Please help

 

[Gord Dibben]

Sub DeleteEmptyColumns()
lastcol = ActiveSheet.Cells(ActiveCell.Row, _
Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For r = lastcol To 1 Step -1
If Application.CountA(Columns(r)) = 0 Then
Columns(r).Delete
End If
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP