Is there a "go faster" option to hide rows

[Dav1d]

I'm working with a form that can have varying rows of data. There will come a time when I want to archive them according to a criteria ("3" in Column A). The code I'm using is below

My problem is its going really, really slow, even when working through 10 or so lines. Is there a tip that might speed things up?

Sub NewArchive()
For Each cell In ActiveSheet.Range("A17:A500")
If cell.Value = "3" Then cell.EntireRow.Hidden = True
Next
End Sub



Many thanks guys!
David

 

[Dav1d]

If your headers are in row 16 (as I'm guessing), here's a method using advanced filter, which might be faster than the previous version for larger datasets.

End Sub[/CODE]

Many thanks, Weaver. I really appreciate the help. I also appreciate the advice viz, the way to really learn excel.

 

[Rick Rothstein]

Wow! That was fast! Many thanks Rick.

You are welcome. I may have left out an error checking line that you might need. If your data is guaranteed to always have at least one cell in Column A (Row 17 and beyond) with a 3 in it, then you can ignore the following. However, if it is possible to have no 3's in that range, then you need to add this...

On Error Resume Next

immediately before the SpecialCells code line to protect against the error that would be generated if that function finds no elements.