AutoHide Cells in Excel

Hi

I have tested the code you amended to work in D10:D900.  It works fine with the data I used which included blanks, zeros and formulas resulting in zero. It even removed 0 in cells fromatted as text.

What it wouldn't remove (but this was expected) were cells containing a single (or more) space.

If the data your using came from another source it is possible that 'invisible' charaters are transfered during the import.  Changing the line in bold should remove these characters

            For Each rCell In RowRange

               If Clean(rCell.Value) <> 0 Then

                    RowRangeValue = RowRangeValue + 1

                End If

Hope this helps