SHARE
TWEET

Untitled

a guest Aug 20th, 2019 68 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top