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.

Sub ActiveProjectandSections()
Dim ws As Worksheet:    Set ws = ActiveSheet

Application.ScreenUpdating = False

With ws
    .AutoFilterMode = False
    .Range("A4:A703").AutoFilter 1, "<>aaa"
End With
    
Application.ScreenUpdating = True

End Sub

Check to see if this one is faster:

Sub HideRows()

    Dim rData As Range
    
    Set rData = Range("B4:B707") ' Use any empty column to work with
    
    rData.Formula = "=IF(A4=""aaa"","""",A4)" ' Put a formula that get you all aaa as blank cells
    rData.Value = rData.Value ' copy the values
    
    rData.SpecialCells(xlCellTypeBlanks).Rows.Hidden = True ' hide cells in blank
    
End Sub

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!