Find and Replace Loop does not find all and loop properly

[mattyfaz]

Hi,

The below code is meant to find special characters and replace them. I am using it in a worksheet that has ~300 rows and columns A-X.

It seems to pick up some special characters and replace them but not all of them? If I run the macro again it will find more but again not all, and basically I have to keep running and manually check until it finds them all. Yet it does not report any errors? Please help I can't figure this one out.

Please Login or Register  to view this content.

Thanks,
Mattyfaz

[skywriter]

Your structure is a little unusual, at least to me.

Please Login or Register  to view this content.

I don't know why you would even use this. You would specify this range as the range that range.find would search and that would be all you need. So I would get rid of this loop. You then have a do loop outside of your for x loop which also is a little strange. I would remove the do loop and then I would structure the code as follows.

You only need to loop through your findList one time. Instead of using just range.find use range.find followed by find next and loop the find next until it equals nothing and then loop x and do it again. That way you are looking for all the first characters in your array list until it finds no more then the second and so on. Also when you use find next, if you code it correctly it starts where you left off, it just continues from there looking for another match. You check if it's nothing if it is you exit the find next loop and go to the next x until your array has been looped through and you are done.

Good Luck.