「Cells(2, 3)」の入力値が、半角かつ大文字と限定されている場合に、
誤入力を防ぐため全角および小文字を変換するイベントは以下のような感じになる。
┌──────────────────────────────────────┐
│Private Sub Worksheet_Change(ByVal Target As Range)                         │
│    If Target.Row = 2 And Target.Column = 3 Then                            │
│        Application.EnableEvents = False                                    │
│        Target.Value = StrConv(Target.Value, vbUpperCase Or vbNarrow)       │
│        Application.EnableEvents = True                                     │
│    End If                                                                  │
│End Sub                                                                     │
└──────────────────────────────────────┘