Hide values

[PaulOakley]

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

[Bob Phillips]

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" <[email protected]> wrote
in message news:[email protected]...
>
> 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
>