Your Find expression is malformed, instead of:
"\[EINDNOOT [0-9]{1;3}(\]"
you should have:
"\[EINDNOOT [0-9]{1;3}\]"
or
"\[EINDNOOT [0-9]{1;3}(\])"
Even then, however, the code won't work as the MID expression (in Mid(RngFnd.Text, 2, Len(RngFnd.Text) - 2)) would need to be modified to take account of your additional text.

There is a more sophisticated version of the macro, that can deal with your [EINDNOOT #] format, here: http://gregmaxey.com/word_tip_pages/...footnotes.html

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