Macro to hide a row

[chadm]

Can some one help me write a Macro to hide a row if the value in a cell of that row is >95?

The sooner the better!

Thanks!

 

[Jay Petrulis]

This worked for me:

---begin VBA---
Sub test()
Dim rng As Range, usedcell As Range

Set rng = ActiveSheet.UsedRange
For Each usedcell In rng
If usedcell.Value > 95 Then _
usedcell.EntireRow.Hidden = True
Next usedcell
End Sub
---end VBA--

Bye,
Jay

 

[chadm]

How do I refer to the cell?

Say the column with the value is d?

 

[Jay Petrulis]

On 2002-04-16 10:02, chadm wrote:
How do I refer to the cell?

Say the column with the value is d?

Try (untested)

-----------
Sub test()
Dim rng As Range, usedcell As Range

Set rng = Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("D:D"))

For Each usedcell In rng
If usedcell.Value > 95 Then _
usedcell.EntireRow.Hidden = True
Next usedcell
End Sub
---------------

Bye,
Jay