Sub hidezerocols()
Columns.Hidden = False
For i = 1 To 5 'number of columns
If Application.Sum(Columns(i)) = 0 _
Then Columns(i).Hidden = True
Next i
End Sub

--
Don Guillett
SalesAid Software

"Laus" wrote in message
...
Is there a way to hide a column automatically if the sum of that column=0?