Für den Bereich "LCase$" kommt die Fehlermeldung: Ungültiger Bezeichner.
Ui, mein Fehler, sorry.
Das hier:
LCase$(.Range("M2")).Value
soll korrekterweise heissen:
LCase$(.Range("M2").Value)