Macropod,
Thank you for your reply.


The purpose of my Macro is not to loop through paragraphs correctly.


The arbitrary counter is not needed to test:
Selection.Range.End = ActiveDocument.Range.End


However, I like the good counter for testing, development and demonstration purposes.


Content re-arrangement of sets of data does not lend itself to Find/Replace because each set has different variables.


My Macro solves the problem of working through the last set and stopping the loop after the last set.


It does this very well.