Private Sub Worksheet_Change(ByVal Target As Range)
Dim pl As Range
Set pl = Range("A1:A10")
If Not Intersect(pl, Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub