Hide Rows in Excel Macro (Ukryj wiersze automatycznie)

Sub HideRows()
For i = 24 To 620
If (StrComp(Cells(i, 1).Value, 202020, vbTextCompare) = 0) Then
    Cells(i, 1).EntireRow.Hidden = True
Else
    Cells(i, 1).EntireRow.Hidden = False
End If
Next i
End Sub