Hi
The code determines if a row is empty by summing the contents of the cells A to G with this line
'sums the entries in cells in the RowRange
RowRangeValue = Application.Sum(RowRange.Value)
and then goes on to test the RowRangeValue to determine if the row is emtpy.
A row with no numeric just text data will = 0 the same as an empty one so the code hides it.
The code hides rows that are empty as well as those that appear to be blank because the line
ActiveWindow.DisplayZeros = False
Causes all cells containing or resulting (from a formula) in 0 to appear empty/blank.
Hope this helps
G North MMI