If neither your footnote references in the body, nor your footnote references in the footnotes are bracketed, you need to change both:
.Text = "\[([0-9]{1,})\]"
and:
.Text = "[" & i & "]"
to suit, as per the comments in the code.

That said, if you did the same as the original poster who reported the "Run-time error '13': Type mismatch" error did, it's not surprising you're getting the same error.

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