Private Sub Worksheet_Change(ByVal Target As Range)
Dim l As Byte
l = Target.Row
If Target.Count <> 1 Then Exit Sub
If Target <> "" And Target.Column = 1 Then
If (l - 5) Mod 4 = 0 Then
Target = UCase(Target)
End If
If (l - 6) Mod 4 = 0 Then
Target = StrConv(Target.Text, 3)
End If
End If
End Sub