works for me, sure the sheet isn't protected or something

--


Gary


"Sean" wrote in message
...
When I typed in the code I got an error when I executed it. I double checked
it and it says

RUN-TIME ERROR '1004'!

UNABLE TO SET THE HIDDEN PROPERTY OF THE RANGE CLASS

Any Help!!!

"Bob Phillips" wrote:

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