Did you try to put the sub in ThisDocument code windows instead of in a module?
Give a try.
Also provide your code here so someone can help.

__________________
Backup your original file before doing any modification.