Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("O5:Q1000")) Is Nothing Then Exit Sub
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
End Sub

Target.Value = UCase(Target.Value)