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

Private Sub UpdateFontSize()
    Dim rng As Range
    Dim rCell As Range

    Set rng = Range("AD10:AF10")

    For Each rCell In rng
        If Len(rCell.Text) > 2 Or _
          Val(rCell.Value) > 10 Then
            rCell.Font.Name = "Century Gothic"
            rCell.Font.Size = 9
        Else
            rCell.Font.Name = "Century Gothic"
            rCell.Font.Size = 11
        End If
    Next
End Sub

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:

Val(rCell.Value) > 10 Then

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

Many thanks

Luke