Deleting empty columns in a sheet

[khawarameer]

Dear All,

I have a very large sheet with 250 columns. However some of these columns are empty. I need a script which can delete all empty columns. Can any one help?

Regards


Khawar

 

[LloydFinancials]

Sub DeleteEmptyCols()
    Dim LastCol As Long, i As Long
    LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
    For i = LastCol To 1 Step -1
        If WorksheetFunction.CountA(Columns(i)) = 0 Then
            Columns(i).EntireColumn.Delete
        End If
    Next i
End Sub

 

[khawarameer]

Sub DeleteEmptyCols()
    Dim LastCol As Long, i As Long
    LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
    For i = LastCol To 1 Step -1
        If WorksheetFunction.CountA(Columns(i)) = 0 Then
            Columns(i).EntireColumn.Delete
        End If
    Next i
End Sub

Thank you LloydFinancials it worked fine.

Regards

 

[LloydFinancials]

Great! Thank you for the feedback.