macro takes forever to complete

[megabytePete]

I use this macro to hide older than today rows.
The problem is that it runs for the already hidden rows and thus it takes forever to complete
because there are more than 1500 rows in the table...
ver
office 2019 and office 2021

Any ideas??
--------------------------------------

Sub HIDE_OLDER()
Dim i As Long
Dim TODAY As Date
Sheets("LOG").Activate
For i = ActiveSheet.UsedRange.Rows.Count To 3 Step -1
Range("b" & i).Select
If ActiveCell.Value < Date Then
ActiveCell.EntireRow.Hidden = True
Else
End If
Next i
End Sub

[AliGW]

Welcome to the forum.

Please review the forum rules on code tags. Thanks.

[ByteMarks]

Try

Sub test()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("LOG")
    For i = .Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
        With .Cells(i, "B")
            If .EntireRow.Hidden = False Then .EntireRow.Hidden = .Value < Date
        End With
    Next i
End With
Application.ScreenUpdating = True
End Sub

[megabytePete]

Aha !
This one worked just fine. Thank you!
If I unhide all rows and run it it still takes long time to complete.
But if rows are hidden and needs to hide 10 more (from yesterday)
it works perfect.
So, Thank you again
Pete

[Marc L]

As a reminder filtering data just replaces the useless slow loop …

[megabytePete]

As a reminder filtering data just replaces the useless slow loop …

I agree but
saving a filter as macro to be attached to a button
is not my expertise yet :-)

I use filters else were in my sheets but I don't know how to do this one.

Thanks !

[Marc L]

So easy to start yourself just activating the Macro Recorder and operating manually …
For more help attach at least a workbook.