Thanks a lot ! It's still running - can't tell you about the result. But since it's still running, you seem to have solved the problem. Latest (and biggest) Intel i7 with latest Office still uses 1 core only, three cores (+ hyperthreading) are idling. I should better split it into single files and run in parallel
Do you suggest to set use .Range.Text to remove the value or shall I do it the "replace"-way?
Code:
With ActiveDocument.Content.Find
.Execute FindText:="-1", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll, MatchWholeWord:=False
End With
Shall I also add this to each loop?
Code:
ActiveDocument.UndoClear
EDIT:
Oops, it doesn't work every time. I've got very much cells, which haven't get touched at all.