Deleting Empty Colums

[roaze2000]

Hello,

Is there a easy macro way to delete empty colums?
Maybe somthing similar as with autofilter, but then for colums?

Thanks for your tips!

 

[roaze2000]

Maybe I should have indicated that these are raw data reports, with multiple empty columns.

I have tried things like: If columns("a:zz") = "" then delete, but can't get it to work.
Can someone point me in the right direction?

 

[HalfAce]

Hello roaze2000,
Here's something you can try.

Public Sub DeleteCompletelyBlankColumns()
Dim Col As Long
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange.Columns
Application.ScreenUpdating = False
For Col = Rng.Columns.Count To 1 Step -1
  If Application.WorksheetFunction.CountA(Rng.Columns(Col).EntireColumn) = 0 Then Rng.Columns(Col).EntireColumn.Delete
Next Col
Application.ScreenUpdating = True
End Sub

 

[roaze2000]

Thanks...

It is doing exactly what I want. THanks

 

[HalfAce]

Most welcome. Glad it helped.