Volgende macro zet ingevoerde teksten in kolom A en B automatisch om naar hoofdletters:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
  If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each c In Target.Cells
    If Not c.HasFormula Or IsNumeric(c) Then _
      c = UCase(c)
  Next c
  Application.EnableEvents = True
End Sub

kopieer de macro naar de werkbladcode