Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).row
For i = 1 To iLastRow
If Cells(i, "A").Value = "" Then
Rows(i).Hidden = True
End If
Next i

--
HTH

Bob Phillips

"Gord" <gordonrmac@gmail.com> wrote in message
news:1115859775.290946.25160@f14g2000cwb.googlegroups.com...
> Is there a way to hide a row of a sheet unless there is something in a
> certain cell?
>
> I have a list of CountIF's and some of the cells are blank to have
> built in expansion. Until the items are entered, I just have white
> space.
>
> Could I set something along these lines:
>
> If cell A25 = BLANK HIDE row, otherwise show row?
>
> Thanks in advance.
>