Change Event to change Font to bold and colour Index

How do I get the subject names to bold using the following code?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim icolor  As XlColorIndex

    If Not Intersect(Target, Range("E2:E65")) Is Nothing Then
        Select Case Target.Value
            Case "Reading"
                icolor = 6
            Case "Math"
                icolor = 12
            Case "Language Arts"
                icolor = 7
            Case "Communications"
                icolor = 7
            Case "PE"
                icolor = 15
            Case Else
                icolor = xlColorIndexNone
        End Select
        Target.Interior.ColorIndex = icolor
    End If
End Sub

Thanks