Number of cells found by .Find/.FindNext

Hello, I seem to have run into a problem here. I'm trying to use the .Find and .FindNext functions to find how many cells in Worksheet("WAS") have the same value as the ActiveCell (B3 in this case) on the Worksheet("DDS").

Basically i'm just trying to figure out how many times this sub goes through the Do While loop. However, "tick" keeps coming back as a value of 1. I know there's something I must be doing wrong or something i'm not allowed to do but i'm still pretty new at this.

----Edit: I figured out that .Find does not include cells that are formatted with ";;;". I made them to General but now the macro just locks up.

Here's the code:

Please Login or Register  to view this content.

TIA -- Chris

Could you not simply use COUNTIF ?

Please Login or Register  to view this content.