Sub Hidecolums()
Dim Lcolumn As Long
Dim MyRng As Range
Dim c As Range

Lcolumn = Cells(25, Columns.Count).End(xlToLeft).Column
Set MyRng = Range("C25", Cells(25, Lcolumn))

For Each c In MyRng
If c.Value = 0 And c.Value < "" Then
c.EntireColumn.Resize(, 2).Hidden = True
End If
Next c
End Sub



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"PaulOakley" wrote
in message ...

I am trying to hide values as found in the attached.

Can anyone help, i have asked thi s question in a previous thread but
the VB is causing me problems, and i cant quite work out why, the macro
i have tried to use is present in the xls.

Thanks in advance


+-------------------------------------------------------------------+
|Filename: Summary.zip |
|Download: http://www.excelforum.com/attachment.php?postid=4571 |
+-------------------------------------------------------------------+

--
PaulOakley
------------------------------------------------------------------------
PaulOakley's Profile:
http://www.excelforum.com/member.php...o&userid=25103
View this thread: http://www.excelforum.com/showthread...hreadid=529159