Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range, c As Range
Set MyRange = Intersect(Target, Range("C5:C33, P5:P33"))
If Not MyRange Is Nothing Then
Application.EnableEvents = False
For Each c In MyRange
c.Value = UCase(c.Value)
Next c
Application.EnableEvents = True
End If
End Sub