Hide row if cell contains...

[Pawel]

Hi,
I'm trying to create macro that hides rows if cell contains certain word.
The problem is that macro should only hide those rows that contain this cell.
As for now I have sth like this but it's not working:


Dim rng As Range
Set rng = Range("B1:B100")

For Each Cell In rng
If InStr(1, rng, "low") Then Cells(rng).EntireRow.Hidden = True
Next Cell

Please help.

[GTO]

Try:


Option Explicit

Sub example()
Dim rng As Range
Dim Cell As Range

Set rng = Range("B1:B100")

For Each Cell In rng
If InStr(1, Cell, "low") Then Cell.EntireRow.Hidden = True
Next Cell
End Sub

Does that help?

Mark

[Pawel]

It does help!
Thank you Mark (GTO)

[GTO]

You are most welcome and thank you for the feedback :beerchug: