Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Me.Range("C1:C25")) Is Nothing Then
Application.EnableEvents = False
If Not IsEmpty(Target) Then Target.Value = UCase$(Target.Value)
Application.EnableEvents = True
End If
End If
End Sub