Autohide Columns

[Laus]

Is there a way to hide a column automatically if the sum of that column=0?

 

[Don Guillett]

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