Hi b0x4it,

Finding any set of characters (or a particular character) is just a matter of changing the Find expression in the macro. So, for all Greek characters, change:
.Text = "[0-9]"
to:
.Text = "[" & ChrW(&H374) & "-" & ChrW(&H3FF) & "]"
The 'Greek' find spans all the characters you see in Insert|Symbol for the Greek & Cyrillic script. You can narrow the range if you want, but it won't make a significant difference to the macro's speed. There is also an extended Greek character set, with a different ChrW range, but I'd be surprised if they were being used in the equations.

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