Thread: run time error
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
stevebriz stevebriz is offline
external usenet poster
 
Posts: 195
Default run time error

Sean ,
Add a check box to you sheet or form
and put the code in:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
For Each cell In Range("AL35:AL609")

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

cell.EntireRow.Hidden = False
Next cell
End If
End Sub



Sean wrote:
I got a macro earlier and I try it and get a runtime error? The purpose of
the code is to hide entire rows if a 0 value is with in the specified range
of cells. Also I would like it to be in the form of a check box. If the box
is checked it hides the rows and if it is unchecked it shows the rows with a
value of 0 in them.

The help I received earlier was greatly appreciated, just want it to work...

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

Thanks,

Sean