Macro for hide rows with the cell value "aaa"

Hi!
I need a little bit help with a macro. In column A i got several projects and if the cell value is "aaa", then I want to hide the row. The projects will always be in row 4 to 703. I have a macro thats working but is super slow so maybe you can help with some smarter way to solve this. My macro right now is:

Sub ActiveProjectandSections()
Application.ScreenUpdating = False

Set rng = Range("A4:A703")
For Each cell In rng
If cell.Value = "aaa" Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.ScreenUpdating = True

Sincerely,
Niclas

You could autofilter out the "aaa". That will probably be one of the fastest ways.

Please Login or Register  to view this content.

Check to see if this one is faster:

Please Login or Register  to view this content.

Let me know

Thank you both! Both of the ideas working and are going very fast! I decided to go on the second idea since I also use outliners and they clash a bit. Thanks anyway!!

Great!

Please don't forget to close post as solved and reputation if any of the suggestion worked for you in any way.

Good luck!