Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If InStr("7,11,15", c.Column) = 0 Then Exit Sub
If InStr("1,2,3,4", c.Row) <> 0 Then Exit Sub
Application.EnableEvents = False
c.Value = UCase(c.Value)
Application.EnableEvents = True
Next c
End Sub