Automatically change text to Upper case

[Muthukrishnan V]

Excel 2007

Automatically change text to Upper Case.
Kindly look into the below vba code which applies Col A to H.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 8 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub

Kindly suitably change the above code to apply for Column D15:D500 only.

 

[Peter_SSs]

See if this does what you want.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Changed As Range, c As Range
  
  Set Changed = Intersect(Target, Range("D15:D500"))
  If Not Changed Is Nothing Then
    Application.EnableEvents = False
    For Each c In Changed
      c.Value = UCase(c.Value)
    Next c
    Application.EnableEvents = True
  End If
End Sub