Как получить имя выделенной фигуры

[Valegor69]

Подскажите пожалуйста

На листе рабочей книги Excel есть множество полилиний. На полилинию назначен макрос. Как в этом макросе получить имя той полилинии, с нажатия на которую он начал выполняться. Насколько я понимаю, это должно выглядеть примерно так:

Имя_переменной = Sheets("Имя_листа").ShapeRange. Active.Name

Но не работает. Заранее спасибо за помощь.

[motorway]

Ну если макрос назначается на конкретную линию, по идее, можно прописать вручную ее название в макросе, если оно не планируется изменяться потом

[motorway]

Также можете использовать свойство Application.Caller

[EducatedFool]

Sub test()    ' макрос назначен всем линиям
    On Error Resume Next
    Dim sha As Shape: Set sha = ActiveSheet.Shapes(Application.Caller)
    sha.Left = sha.Left - 30    ' смещаем линию влево
End Sub