Creating a VBA loop to search for values, stop when a cell value is 0

I currently have a macro that looks up a user inputted value/word on one sheet, "Instructions", and then searches for it on another, "Forecast", then deletes the column the value/word is found in and also deletes the columns to the right of it until the next populated cell. This works perfectly and I don't want to change it. What I would like to do is instead of just looking for one inputted value/word, I want it to search for all the words/values in the column until it reaches a cell with the value 0. I've tried a "Do Until" loop, but I can't seem to have it do what I want. Here is the code.

Please Login or Register  to view this content.

The parts I added in (shown above) to try to search for values/text until it reaches a cell with the value 0 are:

Please Login or Register  to view this content.

Everything else I have works perfectly, its just this part I need help with. (I'm trying to search starting at cell H56 and searching down the column sequentially- that's why I have the offset of (1,0). I want to search until there is a cell in column H that has a value of 0.)

Hopefully that isn't worded too poorly. Any help is greatly appreciated. Thank you!

You never change the value of strFind because it is outside of your loop, so you will always search for the same word...
Try

Please Login or Register  to view this content.

Ok I think I understand what you're saying as far as changing the value of StrFind. When I try the count method, I get an error on this line:

Please Login or Register  to view this content.

It says "Object doesn't support this method or property..

Sorry, my mistake, change it to:

Please Login or Register  to view this content.

Ohh yes, that makes sense. Looks like its working! Thanks a lot, saved the day!!