Excel 9 - Excel 8

habe ein Projekt in Excel 9 erstellt und habe es in Excel 8 laufen lassen. Funktioniert auch alles, außer folgendem Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Fehler
If Target.Address = "$M$3" Then ActiveSheet.Name = "C" & Target.Value
Exit Sub
Fehler:
MsgBox "Dieser Name ist schon vorhanden !"
Range("M3").Select
Selection.ClearContents
Range("M3").Select
End Sub

Es soll das Tabellenblatt entsprechend Zelle M3 benannt werden.
Ich erhalte keine Fehlermeldung, allerdings wird auch nichts umbenannt.
Kann mir das jemand erklären ?