That suggests you're not using the Find code as posted. As I said, it works for me. Let me explain what the '\([!\)]@[0-9]{4}*\)' represents:
1. '\(' - the string must begin with an opening parenthesis
2. '[!\)]@' - after the opening parenthesis must be a string of any length consisting of characters other than a closing parenthesis. This prevents a range like '(AA) ... (Kasl, 1992)' being found.
3. '(]@[0-9]{4}' - after the string of any length consisting of characters other than a closing parenthesis, there must be a 4-digit number. This prevents a range like '(AA)' being found.
4. '*\)' - after the 4-digit number can be a string of any length terminating in a closing parenthesis.

You could try adding some redundancy:
Find = \([!\(\)]@[0-9]{4}*\)
The effect of this on the above explanation is:
2. '[!\(\)]@' - after the opening parenthesis must be a string of any length consisting of characters other than an opening or closing parenthesis.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]