hide blank rows
Sub HideRows()
Dim oRow As Range
For Each oRow In Range("A1:A20").EntireRow
oRow.Hidden = Application.CountIf(oRow, "<") = 0
Next oRow
End Sub
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"violet" wrote in message
...
i need to hide all those blank row in my whoel worksheet. found this code
in
another thread but realise that this hide the row if that column is blank.
however, what i want is to only hide the row if whole row is w/o data and
not
particular column w/o data. so hw can i modify this code or is that any
other code to acheive this?
Sub Tester()
On Error Resume Next
Range("A1:o20").Columns(1).SpecialCells(xlBlanks). _
EntireRow.Hidden = True
On Error GoTo 0
End Sub
|