Wie kombiniere ich beide [Private Sub Worksheet_Ch

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then ActiveSheet.Name = Target
End Sub

Aber, wenn ich den nachfolgenden Befehl anfüge, bekomme ich bei Private Sub Worksheet_Change(ByVal Target As Excel.Range) einen Fehler angezeigt.
Wie kombiniere ich beide Private Sub Worksheet_Change(ByVal Target As Excel.Range) Befehle?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) <> "E5" Then Exit Sub
On Error GoTo fehler
ActiveSheet.Name = ActiveSheet.Name & ", " & [E5]
Exit Sub
fehler:
MsgBox "Ungültiger Blattname"
End Sub

Eine Frage an wissende. Für meiner einer, im Moment noch unlösbar. Bin am verzweifeln. Kann mir jemand helfen?
Gruß Ralf