For Each Loop (Make it Faster)

Hi,

I would approach this by filtering the data, and then hiding the filtered rows:

ActiveSheet.Range("$A$1:$A$30000").AutoFilter Field:=1, Criteria1:="<>hide", Operator:=xlAnd