shapes Namen geben

If Cells(1, 1) < Cells(1, 3) Then

With Cells(1, 2)
Set Sh = ActiveSheet.Shapes.AddShape(msoShapeUpArrow, _
.Left + 20, .Top + 1.1, 10, 10)
End With
Else

With Cells(1, 2)
Set Sh = ActiveSheet.Shapes.AddShape(msoShapeDownArrow, _
.Left + 20, .Top + 1.1, 10, 10)
End With
End If

End Sub

wenn möglich wäre super wenn ich festlegen könnt das das shape "test" heist. so in etwas wäre super

Set Sh = ActiveSheet.Shapes.AddShape(msoShapeDownArrow, _
.Left + 20, .Top + 1.1, 10, 10 ,shape.name ="test")

vielen dank Chris !