Re: Hiding Rows in an Excel Worksheet programmatically through automation.

[Michael Munroe]

I suggest you use the UsedRange method to determine the size of the
data and the End method to jump to the last row.  Then use the
Range(Ax,Ay) followed by EntireRow and then set the property Hidden to
True.

Here is the Visual Basic code:
Sub HideEmptyRows()
    Dim EmptyRow As Integer
    EmptyRow = ActiveSheet.UsedRange.Rows.Count + 1
    Range(Cells(EmptyRow, 1), Cells(EmptyRow,
    1).End(xlDown)).EntireRow.Hidden = True
End Sub

You can simplify the process in LV by using result from the
UsedRange.Rows.Count as an integer, add 1, and then feed a string
formatted as "Axxx" into the Cells(EmptyRow,1) parameters for the
Range.

Michael
www.abcdefirm.com