Worksheet (Change)

habe ein Modul welches ein Shape formatiert. Bei Änderung der Zelle C3 ändert sich der Text des Shapes. Funktioniert auch!!!
Wenn ich jetzt die Zelle C3 von Extern (aus einer Userform) heraus beschreibe wird das Modul leider n icht durchlaufen.

Was mach ich falsch?

Hier das Modul
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$C$3" Then Exit Sub
ActiveSheet.Shapes(4).Select
Selection.ShapeRange.TextEffect.Text = [C3].Value
[C3].Select
End Sub

Danke für eure Hilfe
Knut