Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then [A1].Value = UCase([A1].Value)
End Sub
If Not Intersect(Target, Range("A12:A22")) Is Nothing Then Target.Value = UCase(Target.Value)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cel In Range("A12:A22 , B5:B8").Cells
cel.Value = UCase(cel.Value)
Next
End Sub