Setting row height to 0 in the visible celss of a range

[Luc]

Hello there,


-I have a range of cells named "All"
-This range consists of a part of a column (for example A30-A1000)
-Depending on some paramaters not all of the rows of the range "All" are
visible (example : A40 to A55, A120 to A141 ,,, A750 to A766 are visible).
-I want to change the row height of the visible cells in the range "All"
which are empty to 0 row height (in fact hidden).
-Can someone provide me some code to do this


Thanks,

Luc

 

[Dave Peterson]

Are the empty cells really empty?

If yes:

Option Explicit
Sub testme02()
Dim myRng As Range
Set myRng = Worksheets("sheet1").Range("all")

On Error Resume Next
myRng.Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True