Well, in that case it seems to me that this line should do the trick:

if cell.Value = "" then Rows(Cell.row+1).EntireRow.Hidden = True


"DarrenL" wrote:

That's kind of what I have, except I need it to hide a row below the cell
that I am referencing......any thoughts?

"Patrick Molloy" wrote:

i thought that I'd replied.beg pardon...
try this:

dim cell as range
for each cell in range("B142:B186").Cells
if cell.Value = "" then Rows(Cell.row).EntireRow.Hidden = True
next

"DarrenL" wrote in message
...
I tried this yesterday and got answers which, unfortunately, did not
satisfy
my need. Thank you for your help, though. Let me try and explain a
little
better.
I am trying to create a loop, where as many rows as I want will hide if,
for
example, column b in the row above is empty. this is my code for one line.
Dim rng As Range
Set rng = Me.Range("b142:b186")
If Not Intersect(rng, Target) Is Nothing Then
Rows(143).EntireRow.Hidden = IsEmpty(rng.Value)
End If
I am thinking that I need a variable and a +1 or a -1 for each row, but
can
not come up with anything. Anyone?
Thanks again for your help yesterday.
Darren