Compile error:
Exit Sub not allowed in Function or Property

I changed to Exit function.
The code it's working with this change but ...
the code changed the text font and not the Normal Style font.