Guest User

Untitled

a guest
Aug 20th, 2019
72
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target, Range("O5:Q1000")) Is Nothing Then Exit Sub
  3. Application.EnableEvents = False
  4. Target = UCase(Target)
  5. Application.EnableEvents = True
  6. End Sub
  7.  
  8. Target.Value = UCase(Target.Value)
RAW Paste Data