You don't need VBA for this; all you need is a wildcard Find/Replace, where:
Find = [0-9]{1,}
Replace = ^&
and you set the replacement font attributes to your preferred colour (possibly even bolded to make them stand out more) and superscripted. You could, of course, record the Find/Replace as a macro.

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