If I understand the problem correctly (which isn't all that likely
considering I've been drinking...) then this sort of thing may be what
you're looking for:

Sub HideNilColumns()
columnsum = WorksheetFunction.Sum(Range("A1:A65535"))
If columnsum > 0 Then Columns("A:A").EntireColumn.Hidden = True
End Sub

You would obviously have to repeat the check for each relevant column and
add the appropriate code to unhide things afterwards. There's also a
possibility that the sum will equal zero if you have negative numbers which
exactly contra the positives. In this case, extra checks would need to be
added (perhaps by taking the absolute values of all the numbers in the
column? Not sure).

Paul C,
--