The "Object variable or With block variable not set" message is gone
I figured that the problem with the code failing to split longer paragraphs occurs only when I add asterisks i.e when I replace the original line with .InsertAfter "***" & vbCr & "***", otherwise it works just perfect as you said. I've tried setting different values and it works like a charm. It also works with the line with asterisks inserted only the macro needs to be run repeatedly to have the same result. Hope you fix this too macropod