Because it is a recursive function (it calls itself) it needs to be a
function, needs the string to be converted passed to it, and needs to be
named "SemiClean"
maybe you want
Sub zReplace()
On Error Resume Next
Do While Not ActiveSheet.UsedRange.Find(";;") Is Nothing
' *.Replace() should return False, but it doesn't on my xl97
Call ActiveSheet.UsedRange.Replace( _
";;", ";", xlPart, xlByRows, False)
Loop
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
