I like the autofilter, too. It's easy to use and easy to explain how to turn it
on/off.
But if you need a macro:
Option Explicit
Sub testme()
Dim myRng As Range
Dim myCell As Range
With Worksheets("Sheet1")
Set myRng = .Range("a5:A54")
For Each myCell In myRng.Cells
myCell.EntireRow.Hidden = CBool(myCell.Value = "")
Next myCell
End With
End Sub
Tim wrote:
I have a group of spreadsheets that use form 5 to 50 rows. I want to hide
the blank rows when I have less than the 50. However, there is formulas in
the row so I want to base the hiding on 1 column where I input the initial
data.
--
Dave Peterson
|