Можно ли задать имя фигуре которую создаём?

[Turistovik]

Когда создаём какую либо фигуру, например:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 115, 115).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue

Можно ли задать этой фигуре имя которое потом можно использовать?

[VictorM]

Selection.Name = "Квадрат"

[Hugo121]

Так получилось (пока не нащупал, как без селекта оперировать):

Sub tt()

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 115, 115)
.Name = "testSh"
End With
Shapes("testSh").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue

End Sub

Или без With
ActiveSheet.Shapes.AddShape(msoShap eRectangle, 0, 0, 115, 115).Name = "testSh"

[Turistovik]

Сообщение от VictorM

Selection.Name = "Квадрат"

Спасибо огромное))