Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Count = 1 And Not Intersect(Target, Range("M4:M17", "P4:P17")) Is Nothing Then
If Target <> UCase(Target) Then Target = UCase(Target.Value)
End If
Application.ScreenUpdating = True
End Sub