Changing font size based on text in cell (not numerical value)

Hi all,
I have this vba to change the font size based on cell value, but I need the font size to change if the cell contains "Writing" (there will be other words before and after), how do I do this?

Kind Regards

Luke

Please Login or Register  to view this content.

Hi Kamboj,
I tried it as a private sub but couldn't it to work, I then tried it as a normal sub and ran it as a macro got a syntax error on:

Please Login or Register  to view this content.

Can I just check, would the vba you've given adjust the font size automatically if the cell contents are changed?

Many thanks

Luke