Macro to convert several font sizes to another font size - with an exception

Hi - I know how to use Find/Replace to convert one specific font size to another font size, one font at a time. The situation I have is this: I have worksheets where MANY different fonts have been used and I need assistance with a macro that will find and convert all font sizes, EXCEPT where 11 pt is already being used, to 12 pt. 11 pt is good where it is being used and want it to be left alone.

Find/Replace won't do an "EVERYTHING EXCEPT (11 pt)" command, that I can figure out, and hope a macro might get the job done so that I don't have to do several Find/Replace commands for every font size used (too time consuming)?

Thank you!

Many Thanks....can't wait to give it a try!

Many Thanks...will try it today!

Hi again AlvaroSiza - tried your macro and it worked wonderfully. Thanks again. I'm wondering how to make the macro run on only the active worksheet. I tried editing the macro with a few different activesheet. commands but nothing I've tried is working. Wonder if you would provide some direction. Many thanks!

AHHH! I was so close yet so far! Many thanks to you....what a great help.