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