Hoe for force text entered into cell to be uppercase

[Bob Gilmore]

How do I force data entered into colunms BCD and m to be uppercase. I have seen sub format for one column but not for the four I need.

[grizz]

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

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