OK, but your new code doesn't test the document
format, (i.e. RTF), which you previously specified as a requirement.
As a side note, your two 'Docname Like' tests could be reduced to:
Code:
If Docname Like "*[Cc]ontract*" Then Call contractchange
Finally, you'll note that my code passed the document reference from the Document_Open macro to FoodAndBeverageMacro. That ensures that, if you have two or more documents open, only the one that is subject to the Document_Open macro and to which FoodAndBeverageMacro should apply can be processed.