Pfeilfarbe- und Bewegung abhängig von Zellwerten

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
With Shapes("Autoform 1")
If Range("A1").Value > Range("B1") Then
.Rotation = 90#
.Fill.ForeColor.SchemeColor = 50
ElseIf Range("A1").Value 

Es funktioníert aber nicht. Ich bekomme einen Laufzeitfehler. "Das Element mit dem angegebenen Namen wurde nicht gefunden".
Hat jemand eine Idee, wogegen ich die "Autoform 1" austauschen muss?
Danke!
Viele Grüße
Markus