Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = IIf(IsNumeric(Target) = False, UCase(Target), Target)
Application.EnableEvents = True
End Sub