Improve speed of the routine

[Paul]

Hallo,
since I have a dynamic range and sometimes the range is only a few rows
and to be able to print all in one A4 sheet, I would like to hide the
empty rows:

Sub Minus()
Dim cell As Range
For Each cell In Range("G10:G150")
cell.EntireRow.Hidden = (cell.Value = "")
Next cell
End Sub

it works but it is very slow. Is there a way to improve the speed.
Thanks and Regards
Paul

 

[Claus Busch]

Hi Paul,

Am Fri, 05 Apr 2013 22:34:26 +0200 schrieb Paul:

since I have a dynamic range and sometimes the range is only a few rows
and to be able to print all in one A4 sheet, I would like to hide the
empty rows:

try:

Sub Minus()
Dim LRow As Long
Dim rngC As Range

LRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("G10:G" & LRow).SpecialCells(xlCellTypeBlanks) _
.EntireRow.Hidden = True
End Sub


Regards
Claus Busch

 

[Paul]

Thanks Claus,
it is really fast. Much faster then mine.

Regards
Paul