Control Font size with VBA

Is it possible to control font size by vba,in the example workbook you will see what I mean. I tried
Shrink to Fit with no luck,just want max size font and keep data in box. Have about 30 of these cell that
deep font size control. If only one word then font is size11, lot of words as low as 8. So fonts could be 8,9,10,or 11.

Thanks for ideas.