Private Sub Worksheet_Change(ByVal Target As Range)
'Klein- zu Großbuchstaben
Target.Value = VBA.LCase(Target.Value)
End Sub

"Laufzeitfehler. Die Methode "Value" für das Objekt "Range" ist fehlgeschlagen"

Sub GROSSBUCHSTABEN()
Dim zelle As Range
For Each zelle In Range( _
  "D6:M36;R6:AA36;AF6:AO36;AT6:BC36;D42:M72;R42:AA72;AF42:AO72;AT42:BC72;D78:M" & _
  "08;R78:AA108;AF78:AO108;AT78:BC108").Cells
zelle = UCase(zelle)
Next zelle
End Sub