Could you check my code please

[ipbr21054]

Hi,
I have this code in use
I have added the code shown in Red expecting when i leave the cell in question the Font Size Font Family etc etc to change.
Nothing happens when i leave any cells.

Can you advise / show me what ive missed please

Private Sub Worksheet_Change(ByVal Target As Range)

'   Exit if more than one cell updated at a time
    If Target.Count > 1 Then Exit Sub

'   Check to see if value updated is in column B or D
    If Target.Column = 2 Or Target.Column = 4 Then
        Application.EnableEvents = False
        If UCase(Cells(Target.Row, "B")) = "REFUND" Then
            Cells(Target.Row, "D") = Abs(Cells(Target.Row, "D")) * -1
        Else
            If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "D").ClearContents
        End If
        Application.EnableEvents = True
    End If
    If Not (Application.Intersect(Target, Range("A3:K28")) _
      Is Nothing) Then
        With Target
            If Not .HasFormula Then
                Application.EnableEvents = False
                .Value = UCase(.Value)
                Application.EnableEvents = True
            End If
        End With
        With Range("A1:L33")
        .Font.Size = 11
        .Font.Bold = True
        .Font.Name = "Calibri"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        Application.EnableEvents = True
        End With
    End If
End Sub

 

[ipbr21054]

See this enlarged screen shot

 

[ipbr21054]

Done.
Applied vbBlack into the code