It would be helpful if you told us what "doesn't work" means.

Frankly this code could never have worked as it is. Since there is nothing
to stop it, it goes on until an overflow error occurs when it reaches the
capacity of integers at row 32767.

--
Jim Rech
Excel MVP