Hi,

I want to delete columns if the total is 0
background: excel file columns I to X want to delete if whole column's
SUM is 0.

Sub delCol()
Dim lr As Long, sh As Worksheet
Set sh = ActiveSheet
For i = 24 To 9 Step -1
lr = sh.Cells(Rows.Count, i).End(xlUp).Row
If WorksheetFunction.Sum(Range(sh.Cells(1, i), _
sh.Cells(lr, i))) = 0 Then
Columns(i).Delete
End If
Next
End Sub




"beancurd" <(E-Mail Removed)> wrote in message
news:ff6eb63a-2b7e-4ee7-bbef-(E-Mail Removed)...
> Hi,
>
> I want to delete columns if the total is 0
> background: excel file columns I to X want to delete if whole column's
> SUM is 0.

How can I set the pop up message, for one folder that include excel
file to delete columns?

Start by re-writing your description of what you would like to have done.

Does not make sense as it is.


Gord Dibben MS Excel MVP

On Thu, 27 May 2010 09:04:04 -0700 (PDT), beancurd
<(E-Mail Removed)> wrote:

>How can I set the pop up message, for one folder that include excel
>file to delete columns?