Assuming you're having problems with the 'AcronymLister' sub:
• comment out 'Application.ScreenUpdating = False'
• insert:
Code:
.Select
Msgbox .Text
after 'Do While .Find.Found = True'
That will show you what has been matched on each iteration and should allow you to identify where in the document the code hangs.