Microsoft Office Forums - View Single Post - [Solved] Hoe for force text entered into cell to be uppercase

grizz · 10-25-2012, 05:48 PM

this will work but I'm sure some one can shorten it for you

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Application.EnableEvents = False
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("B:B")) Is Nothing Then
    Application.EnableEvents = False
     Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
    ElseIf Not Intersect(Target, Range("C:C")) Is Nothing Then
    Application.EnableEvents = False
     Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
 ElseIf Not Intersect(Target, Range("D:D")) Is Nothing Then
    Application.EnableEvents = False
     Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
 ElseIf Not Intersect(Target, Range("M:M")) Is Nothing Then
    Application.EnableEvents = False
     Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End If
End Sub