For the wb presented, this should do it
Option Explicit
Sub HideBlankColumnsSAS()
Dim w As Long
Dim lc As Long
Dim i As Long
Dim mc As Long
For w = 1 To Worksheets.Count
With Sheets(w)
..Columns.Hidden = False
lc = .Cells(2, Columns.Count).End(xlToLeft).Column
For i = lc To 7 Step -1
mc = Application.CountA(.Columns(i))
If mc < 2 Or mc 1 And Application.Sum(.Columns(i)) = 0 Then
.Columns(i).Hidden = True
End If
Next i
End With
Next w
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Jodie" wrote in message
...
I need to hide columns in all worksheets in the workbook that have only
zeros
or only blank cells after the first two rows. For example, Column A is
headed Names, Col B - Fee 1 and Col C - Fee2 and Col D - Comments. If all
of
the fees under Fee2 are 0, then I want to hide the entire column. If
there
are no comments, then I want to hide that column as well. The column
headings are in row 2. Can anyone help with this?
--
Thank you, Jodie