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
|