Looping hide row Optimization problem

I am working with a fairly large dataset for which I am trying to develop the quickest code possible that will:
1. Find the rows (from 10 to 16009) in the fourth column whose value =0
2. Hide the entire row where this condition is true

Here is the code I am working with, however it obviously very slow. I would appreciate any advice as to how to improve this or utilize a better method.

Please Login or Register  to view this content.

Thank you, it works much better! I see what you did by only hiding once. Since I want this to update the sheet each time the user navigates to it, I put the code back under the Worksheet_Activate() Private sub- which should not affect speed from what I can observe.

How might I add a popup msgbox that would tell the user to wait while the page is update? Is it possible to include some sort of "time left" notification in this msgbox?

Thanks again.

Great thanks, I am experimenting with different ways of doing this but it is not a major issue.
However relating to this row hide loop- I will need to add a filter to the dataset but it seems that the rows do not remain hidden whenever the data is filtered according to a column parameter and then reset back without the filter. Does applying/removing a filter always undo hidden rows? Is there any way to get around this?

I forgot to select Column D.

Sorry.

Thank you for your solution Mehmetcik, however although it does run much quicker the code is not hiding the correct rows (those in column 4 which have a 0, between rows 10 and 16009). I think the issue with your solution lies in that it is selecting row 1 column 1 as the starting point- I am also hesitant about using Select as well as xlWhole which might seem to take longer to me, however please explain how this would be quicker.

Hi

I amended my code to only look at column D.

The find function is in true vba code and will run faster then anything that has a loop.

Try it and see which is faster.

Do you have a timer programme?