Sub hideifzeros()
Dim a as Range
For Each a In Range(Cells(1,1),Cells(rows.count,1).End(xlup))
If a = 0 And a.Offset(0, 3) = 0 Then a.EntireRow.Hidden = True
Next
End Sub

column D is offset 3 from Column A.

--
Regards,
Tom Ogilvy


"Greg Stevens" wrote in message
...
Hello,

I am looking for some assistance here with a code I am trying to write for
an excel data. Here is the scenario:

I have 10 columns (A:J) with about 1000 rows. Each of those cells within
the 10 columns and 1000 rows contain numbers. We want to run a macro in
which for columns A and D, when and only if they both equal "0"then we
want
to hide that specific row and continue onto the next row and keep on
hiding
if the columns A and D both equal "zero" until the entire sheet has been
searched.

So far here is what I have but the macro is just taking the first row and
hiding regardless of values and stopping the

Sub hideifzeros()
For Each a In Selection
If a = 0 And a.Offset(0, 4) = 0 Then a.EntireRow.Hidden = True
Next
End Sub


Please assist, I would be very grateful as I am at a loss right now.


--
Greg