Hi P,

Try:

Public Sub Tester001()
On Error Resume Next
Range("NamedRange").Columns(1).SpecialCells(xlBlan ks). _
EntireRow.Hidden = True
On Error GoTo 0

End Sub
'<<=============

Change "NamedRange" to your range of interest.

---
Regards,
Norman



"pkeegs" wrote in message
...
I have a named range which includes some rows which are empty. When I apply
subtotals using a macro, all the empty rows end up in the bottom category.
What code can I include in the macro to hide all the empty rows.