Code to delete empty columns

[edlim85]

Hi all,

How do i use vba to delete empty columns in my used range?
the code i need cannot be based on cells.


Pls advise.


regards
edmund

 

[VoG]

Try

Sub DelCol()
Dim LC As Long, j As Long
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
For j = LC - 1 To 1 Step -1
    If WorksheetFunction.CountA(Columns(j)) = 0 Then Columns(j).Delete
Next j
End Sub