For Each cell In Range( "AL35:AL609")
cell.Entirerow.Hidden = cell.Value = 0
Next cell

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Sean" wrote in message
...
I have a large area that contains a lot of zero's, I want to be able to
put a
command button out there to HIDE / UNHIDE these rows.

The macro should search column AL35:AL609 this is very specific. If it
finds a 0 in the column it should hide the entire row.

I can add two buttons if needed one to hide and one to show, if needed.

Thanks,

Sean