Thread: Delete all blank columns

Hi all,

I was hoping to find an answer about deleting all of the blank columns in a range by clicking a button.

i have tried firefly's code on another thread:

Sub Del_Col()
Dim i As Long
For i = Cells(1,Columns.Count).End(xlToLeft).Column to 1 Step -1
  If Cells(1,i).EntireColumn.Find(What:="*",LookAt:=xlWhole, Searchdirection:=xlPrevious, SearchOrder:=xlByRows).Row=1 Then _
    Cells(1,i).EntireColumn.Delete
Next i
End Sub

But didn't have any luck is that the right kinda code or not?

Thanks,
Storm08

Try This:

Sub DelUnusedCols()
Dim i As Long, c As Long, r As Long, n As Long
Dim oSht As Worksheet
Dim bDel As Boolean
Set oSht = ThisWorkbook.ActiveSheet
c = oSht.Cells.SpecialCells(xlCellTypeLastCell).Column
r = oSht.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = c To 1 Step -1
    bDel = True
    For n = 1 To r
        If Cells(n, i) <> "" Then
            bDel = False
            Exit For
        End If
    Next
    If bDel = True Then oSht.Columns(i).EntireColumn.Delete
Next
End Sub

sub snb()
  for each clm in usedrange.columns
    if clm.specialcells(4).count=clm.cells.count then clm.delete
  next
next

Storm, Please mark the thread as SOLVED