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
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2