For Each Loop (Make it Faster)

Thank-you skywriter,
It works nicely.

Looks like filtering is the way to go, also as suggested by sweep. I'm glad your code turns off the filtering once all of the "Hide" identifier rows are hidden. That way, my data query to another application would still work when refreshing my Hidden rows.

Offset (1) means down one row. But what's the Count - 1 do? I plan on naming the ranges in case future users may insert rows or columns befor "A1". So I wonder if I could just leave this line code as is.

Set rngHide = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)

Thanks very much.

Regards,
Ricky