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